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puter Science 


ABSTRACT 


This research studies making an intelligent tutoring system in order to reduce 
pilot mistakes during inflight emergency, specifically the flight environment within an 
F-4 aircraft fuel system malfunction. The pilot emergency tutoring system consists of 
an expert system with knowledge of the F-4 aircraft fuel system and a tutoring 
systen. with strategy to teach students. The expert and tutoring systems use a 
means-ends analysis problem approach. The means-ends analysis approach reduces 
differences between the current state and goal state until the final state or an 
unsolvable state is reached. Through use of the program, pilots can learn to prevent 
decision-making errors and procedural errors. Consequently, the pilot can be freer to 


serve as aircraft commander during an emergency situation. 
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I. INTRODUCTION 


A. BACKGROUND 

During the past 20 years, the study of Artificial Intelligence (AI) in machines has 
evolved from a purely academic activity to a major growth industry involved in both 
government and commercial applications. In particular, in the last five years, there has 
been an explosive growth in the number of AI systems capable of giving practical 
advice on a variety of problems ranging from automechanics to corporate-level policy 
decision-making. [Ref. 1] 

During the same period, AI technology-related activity within the military has 
increased dramatically. This heightened interest and expanding investment in AI by 
the Department of Defense (DOD) and individual services (Army, Navy, Air Force, 


and Marine Corps) may be attributed to a number of factors: 


1. The movement of AI technology from academic research to real world 
application. 


2. The significant advances in the speed and accuracy of sensors and weapons 
through the increasing complexity of modern-day military operations. 


3. A growing awareness and acceptance by the mulitary of the potential of AJ 
technologies to help solve military problems. [Ref. 2] 

One major drive behind the interest is the funding and research base provided by 
the Defense Advanced Research Projects Agency’s Strategic Computing Initiative, 
particularly in areas targeted by DARPA for initial technology application: an 
Autonomous Land Vehicle; an Intelligent Pulot’s Associate; and Naval Battle 


Management. [Ref. 3] 


Although there has been real progress in AI techniques in the aeronautic industry, 
there will never be absolute freedom from aircraft accidents. Recent news of big 


aircraft accidents has gradually increased concem for airline safety. 


B. NEED FOR A PILOT TUTORING SYSTEM 

The flight phase can be divided into: taxiing, takeoff, climb, cruise or mission, 
descent and landing phases. All except the taxiing phase can be included in the 
inflight phase. This study will focus on the inflight phase, since grounded aircraft pose 
no dangerous situations. 

During an inflight emergency the pilot has to react wmmediately to solve the 
problem. No help can be expected from other aircraft, and pilot action is not 
recoverable. Psychological conditions . make mistakes more likely. During an 
emergency, the pilot receives a great deal of information and advice, but it is not 
always helpful. If the pilot wants specific advice concerning the problem, he has to 
explain the current status of every component, something that is impossible during an 
emergency. 

The major factors behind aircraft accidents consist of environmental extremes, 
material failure and human error [Ref. 4]. The procedures and judgmental errors of air 
traffic controllers, flight commanders, and flight supervisors will be included in human 
error. Aviation Week and Space Technology [Ref. 5] reported “The human factor is 
almost 65% in jet transport accidents.” Pilot mistakes account for the majority of 
human error. It is difficult for the pilot, during the emergency, to make a decision 
based on the indicators and gages available. 

An emergency expert system or an emergency tutoring system can help pilots to 
reduce pulot error. An emergency expert system needs sensors or gages for every 
component to provide input data. The expense may be prohibitive. A tutoring system 
which has the same knowledge base as such an expert system requires no additional 


hardware, though its efficiency is less than that of the expert system. 


Modem aircraft such as the F-16 and F-18 still use conventional teaching 
methods in flight training courses. Bloom stated a definition and an efficiency in an 


intelligent tutoring system: 


Conventional teaching, which means a teacher presenting material in front of 
20-200 people, is one of the least effective methods for educational delivery. 
The results achieved through conventional teaching were in the 50-60 median 
range. 

However, and here as the important part of this study, students involved in 
one-to-one tutoring seem to perform around 98th percentile as compared with 
traditionally trained students. These results were reproduced four tumes with 
three different age groups on two different subjects. This study provides 


evidence that tutoring is one of the most effective educational delivery methods. 
[Ref. 6] 


C. IDEA OF PROBLEM SOLVING 

Our Pilot Emergency Tutoring System (PETS) consists of expert and tutor 
domains. The expert domain contains data of the aircraft systems as well as solutions 
to emergency situations. The tutor domain has computer-based ideas to solve the 
current problem and provides strategies to teach students how to correct their 
mistakes. 

The problem approach uses the means-ends analysis problem-solving technique 
in both domains. Means-ends analysis is useful in both realistic problems and those 
that can be stepped through. Previous work in this area was done by Porter [Ref. 7] 
who made a decision support system in the AH-1T engine failure emergency. This 
study uses Rowe's [Ref. 8:p. 263] means-ends analysis structure. Specifically, it 


uses conditional fact clauses instead of production rules to decide diagnostic problems. 


D. THESIS ORGANIZATION 
Chapter II will study the area of artificial intelligence in avionics and explain the 


basic idea of the means-ends analysis technique and means-ends tutor. The concept 


of pulot procedures during normal and emergency situations will be presented in 
Chapter TI. Chapter TV will discuss the hardware environment, data structure, 
system model, and detailed application of the pilot procedure. Chapter V will analyze 


the work and present conclusions with explanations of further work. 


Hl. SUMMARY OF PREVIOUS WORK 


A. SURVEY OF ARTIFICIAL INTELLIGENCE IN AVIONICS 

AI research and exploratory development has recently made real progress in 
avionics. Specifically, the development has concentrated on the pilot’s associate and 
maintenance and trouble-shooting of equipment but areas such as mission planning, 
automatic test equipment (ATE) and built-in test (BIT) have used AI in real 


applications. 


The combat pilot is already overworked, stressed by requirements and too 
busy to plan. He must maintain flight control, conduct continuous threat 
analysis, appropriate countermeasures and monitor and correct aircraft 
navigation. [Ref. 9:p. 89] 

From the pilot’s point of view, it is difficult to make a correct decision in every 
situation; an increased level of automation that provides an integrated avionics 
system is needed. Additionally, the pilot must be considered an aircraft commander, 
with a situation-assessment manager, a tactical-planning manager, a mission- 


planning manager, and a systems-status manager under his control. 


I. The Systran Corporation Expert System Pilot Aid 

The Systran Corp. developed the Expert System Pilot Aid (ESPA) with the 
U.S Air Force’s Avionics Laboratory to study the application of expert system 
programing techniques to the advanced fighter cockpit. They selected three scenarios: 
engine failure, landing gear failure and systems failure on takeoff in an F-16. During 
these emergencies, the pilot can correct the problem by evoking ESPA with a HELP 
command. ESPA begins analysis of the flight environment and takes proper action. If 
ESPA encounters an insufficient condition for each flight phase, the pilot receives a 


warning message. [Rep. 9:p. 92] 


2. Texas Instruments Emergency Procedures Expert System 
Texas Instruments concentrated on an Emergency Procedures Expert 
System, also for the F-16. This system deals with emergencies resulting from the 
loss of canopy and failure of the engine shaft providing power to the accessory gear 


boxes. The system uses the Explorer computer and LISP language. (Ref. 9:p. 92] 


3. McDonnell Douglas Avionics Integrated Maintenance Expert System 
Harris said "AIMES was developed to save time and money," and explained 


the need for a maintenance expert system: 


As it stands now, when an avionics box goes off-line during a mission, a 
great deal of time has to be spent on the ground trying to isolate the failure so 
repairs can be made. Another maintenance problem is that in many instances 
the box will begin to work once the aircraft has landed. This results in the 
ground crew spending hours trying to duplicate the airborne failure so that the 
box can be repaired. [Ref. 10:p. 69] 

AIMES operates by gathering F-18 aircraft data and creating flight files 
during missions for later analysis. Production rule-based artificial intelligence 
techniques are then used to isolate avionics failures to the electronic card level. The 
artificial intelligence expert system is initialized at the beginning of each flight. The 
system has an 80186 processor chip operating at 6 MHZ, 512 RAM, 256K EPROM, a 
256K removable bubble cassette and a Mil-STD-1553 multiplexer controller. Also, 
AIMES has full internal built-in-test capability. Software features include forward 
and backward chaining capability and the inclusion of a resident rule debugger. The 


expert system is written in PLM. [Ref. 10:p. 69] 


B. BACKGROUND OF THE TUTORING SYSTEM 
The training of military personnel is important to all the services. An important 
example of an intelligent computer-based training system in the military 1s 


STEAMER, developed by the Navy Personnel Research and Development Center to 


teach propulsion engineering. An intelligent tutoring system like STEAMER shows 


that it is mot necessary to have expensive equipment for students to learn the same 


material in a shorter period than with traditional instruction methods. 


For our implementation, we’ll use means-ends analysis, one of the classic 


techniques for solving search problems. 


I. Means-ends Analysis 


Means-ends analysis is useful as a general problem solver in problems with 


many components [Ref. 11, 12]. It is capable of surprisingly powerful 
reasoning and is easy to customize for applications, using only a few lines in a 
Prolog program. 


Means-ends analysis takes two inputs and returns two outputs. The first 


one is the starting state, the second is the goal state, the third is the list of 
operators found to solve the problem, and the fourth is the facts true in the final 
state. To reduce the difference between the starting state and the goal state, 
the means-ends analysis has to be a recursive search. The components of 
means-ends analysis are: 


]. 


13]. 


The recommended operator gives conditions for recommending an operator 
based on the facts different between the current state and the goal; 


. The precondition of recommended operator gives facts that must be true 


before applying an operator; 


. The deletepostcondition of recommended operator gives conditions that 


become no longer true after applying an operator; 


. The addpostcondition of recommended operator gives conditions that become 


true after applying an operator. [Ref. 13] 


2. Means-ends tutor 


The idea of means-ends tutor is introduced in Rowe’s technical report [Ref. 


Means-ends analysis is similar to the way people solve many action- 


sequence planning problems. Thus we can easily use means-ends analysis as a 
tutor. Specifically, our tutor kemel prompts the student for each action in turn 


while using its own independent reasoning to select a best action for the current 
state. If the two actions disagree, the student is tutored as to the implications 
and disadvantages of the action. Six domain-independent bug types can be 
detected with student-selected actions. This checking can be interposed into 
the program just after the first recursive call of "means-ends"” : 


1. The student’s action is a misspelling of a known action; point it out to the 
student and check for other errors with proposed correction. 


2. The student’s action is easily confusable with a recommended action at some 
point; point it out and check for other errors with the student’s action. 


3. The student’s action does not satisfy preconditions of the action; tell the 
student what those preconditions are. 


4. Student’s action is an irreversible one: that means the problem cannot ever 
be solved if it is performed; wam student immediately, because it is a serious 
problem. 


5. The student’s action is useless; tell the student, but it may be more 
educational to wait until the student returns to a previous state or retums to 
the best path from the original state. The system can then point out the 
dimensions of the digression. 


6. Both the student’s action and the computer-selected action are possible in 
some state; the computer-selected action may be preferable by the priority 
order means-ends "recommended" facts. [Ref. 13] 


IW. CONCEPT OF THE PILOT TUTORING SYSTEM 


A. DESCRIPTION OF F-4 AIRCRAFT AND FUEL SYSTEM 


1. F-4 Aircraft 

The F-4 [Ref. 14:p. 1-1] aircraft design has been used for multi-purpose 
aircraft the since 1960s. There are two kinds of F-4 aircraft; the fighter and bomber 
such as F-4D, F-4E and the reconnaissance aircraft such as RF-4A, RF-4B and RF- 
4C. The F-4 aircraft is a two-place (tandem) supersonic, twin turbojet airplane built 
by McDonnell Douglas Corporation. The aircraft is designed for all-weather, high- 
low, day-night operations. It is powered by two single rotor, axial flow, variable 
stator turbo-jet J79-GE engines with afterbumer. The aircraft feathers a low mounted 
swept-back wing with anhedral at the wing tips, and a one-piece stabilator with 


cathedral, mounted low on the aft fuselage. 


2. F-4 Fuel System 

The F-4 fuel system [Ref. 14: p. 1-107] consists of seven interconnected fuel 
cells in the fuselage, and two integral wet cells in the wing torque boxes. Provisions 
are nade for two externally mounted droppable wing tanks and a droppable fuselage 
centerline extemal tank. Provisions are also made for an air refueling system. The 
function of fuselage cells 2, 3, 4,5, 6, and 7 is to keep cell 1 supplied with fuel. 

An air pressure fuel transfer system is provided to transfer wing and external 
tank fuel to the fuselage cells. Hydraulic and electric transfer pumps plus gravity feed 
are utilized to transfer fuel from the fuselage cells to the No.1 tank which is the 
engine feed tank. 

All intemal fuel cells incorporate capacitance-type fuel gaging units which 
continuously indicate the total fuel quantity in pounds in all internal cells. The fuel 


system is equipped with refueling level control valves which are float type valves that 


shut off the pressure fueling when predetermined fuel levels are reached. All internal 
and external fuel tanks are pressurized in flight by regulated engine bleed air which 1s 
also utilized to transfer wing or external fuel to the fuselage cells or to dump wing 
fuel. And fuel is supplied to the engine during all flight attitudes by two submerged 
electric motor-driven centrifugal type boost pumps. 

The fuel quantity indicator consists of a fuel counter indicator and a fuel 
sector indicator. The fuel counter indictor shows total quantity of internal wing fuel 
and fuselage fuel, and the fuel sector indicator shows quantity in the fuselage only. 
There is no indicator to represent the quantity in the external wing and centerline 


tanks, pilot must estimate those supplies. 


B. PILOT PROCEDURE 

The pilot’s procedure can usually be divided into normal and emergency 
procedures. A malfunction in any system will initiate the pilot’s emergency procedure. 
To improve combat readiness and achieve a substantial reduction in the rate of 
aircraft accidents, emergency procedures were written into each aircraft’s flight 
manual. The flight manual also includes performance data, flight characteristics and 
flight crew coordination. In the F-4 aircraft series, there is no major difference in fuel 
systems, so this thesis will use the RF-4B flight manual issued by Naval Training 


and Operating Procedures Standardization Program (NATOPS). 


I. Normal Procedure 
The normal procedure explains steps the pilot and flight crew must go 
through during each flight phase from briefing to debriefing. It covers the flight phase, 
aircraft configuration, and flight environment. The normal procedure goes through the 
sequence of preflight, takeoff, inflight, landing, postflight, scramble operation and night 
flying. Preflight procedures cover the time before entering the cockpit, after entering 
the cockpit, before starting engines, starting engines, before taxiing and taxiing. 


Takeoff procedures cover before takeoff, normal takeoff technique, minimum run 


10 


takeoff, crossword takeoff, formation takeoff, after takeoff, transition to climb, and 
climb. [Ref. 14:p. 3-1] 

During normal procedures, flight conditions are good and there are few 
opportunities for decision making. Any mistakes by the pilot could cause problems 


necessitating emergency procedures. 


2. Emergency Procedure 

The emergency procedures ensure maximum safety for the crew and aircraft 
until a safe landing or other appropriate action is accomplished. In contrast to normal 
procedures, a pilot using emergency procedures must make decisions in a short time 
to fix the aircraft’s problems. 

During an emergency, the pilot must consider three things: the air crew 
must maintain aircraft control, the pilot must analyze the situation and take proper 
action and finally, the pilot must land as soon as practicable. The first and third 
procedure don’t require any decision making or reasoning, but the second procedure 
can be difficult. [Ref. 14:p. 5-2] 

The emergency procedures depend on the malfunctioning system, and what 
phase of the flight is involved. Emergency procedures cover air condition system 
ialfunctions, electrical malfunction, engine malfunctions, fire, flight controls, fuel 


system, hydraulic system and landing emergencies. 


C. OBJECTIVE 
The basic goal in an emergency is analyzing the situation exactly and taking 
proper action considering large amounts of data. The pilot emergency tutoring system 


teaches the pilot to: 


1. Collect necessary information from lots of data. 


2. Use necessary information and define the problem based on expert knowledge. 


1] 


3. Identify the problem, and follow the emergency procedure for proper action. 


D. ASSUMPTIONS 


This thesis makes the following assumptions; 


1. The status of a component in our tutoring system is the same as the actual 
aircraft status, even though there is no sensor for input data. 


2. The flight data can’t be changed without the pilot’s action. 
3. The current status of indicators will use input data not pilot readings. 


4. The pilot is not allowed to handle any switch before identifying the problem, 
even if it is a useless switch. 


5. If the pilot follows the correct procedure, the problem is cleared, even though 
there are mechanical problems that can’t be fixed. 
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IV. IMPLEMENTATION OF THE PILOT TUTORING SYSTEM 


A. PROGRAMMING LANGUAGE 

To implement the pilot tutoring system, this study uses C-Prolog for an ISI 
workstation. The pilot tutoring system must compare current component states with 
goal states and reduce any differences to reach the goal state. This means-ends 
analysis requires the use of Prolog. 

There are three kinds of Prolog language available at the Artificial Intelligence 
laboratory of Naval Postgraduate School; C-Prolog, M-Prolog and Quintus Prolog. C- 
Prolog and M-Prolog are used in the AI machine. Quintus Prolog is designed for a 
Sun operating system. Though the environment for each Prolog interpreter is different, 
there are few differences in usage from the user’s point of view. 

C-Prolog was designed for machines with a large uniform address space, and 
assumes a pointer cell 32 bits wide. This language can be used in VAX machines 
under the UNIX and VAX/VMS operating systems, on the Sun workstation under 
4.1/2 UNIX, and the other MC68000-based workstations with minor changes. [Ref. 
15] 


B. ORGANIZATION OF THE PROGRAM 
The tutoring system model consists of a student model, a problem domain, an 


expert domain model, and a tutor domain model. 


I. Student Model 
The student model for the tutoring must include a processing state for means- 
ends analysis. To track this, our tutor backtracks as necessary by exploiting built-in 
Prolog backtracking capability, to reach a processing state that explains why the 


student wants to do a particular action next. [Ref. 13:p. 4] 
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2. Problem Model 

Aircraft emergencies can be caused by several reasons, but this study will 
focus on mechanical problems and pilot mistakes. The pilot can make two kinds of 
errors: a wrong decision or a wrong procedure. In the first error, the pilot doesn’t 
correctly identify the problem, i.e., he confuses internal wing transfer failure with 
external wing transfer failure. Even if the pilot follows the correct procedure, it makes 
the problem harder to solve. The latter error means that the pilot follows the wrong 
procedure, even though he correctly diagnosed the problem. 

A fuel system malfunction on an F-4 aircraft consists of fuel boost pump 
failure, fuel transfer failure and failed open defuel valve during air refueling. This study 
deals with transfer system failure. The fuel transfer fatlure could be internal wing fuel 
fails to transfer, centerline fuel fails to transfer, external wing fuel fails to transfer, 
reverse transfer of fuselage fuel, fuel streaming from underside of aircraft following 
center jettison and wing fuel leak. The tutoring system can’t detect any other 


malfunction. It handles combined malfunctions on a priority basis. 


3. Expert Domain Model 

The expert domain of PETS can analyze a problem and take proper action 
within the F-4 fuel system malfunction. To analyze the problem, the pilot must look at 
the fuel quantity sector, fuel quantity counter, external tank, centerline tank and 
states of centerline jettison. After identifying the problem, the pilot will check the 
difference between the current state and goal state, and the system will suggest a 
corrective procedure based on the flight manual. Even though the final goal is the 
same in every emergency, each procedure is different. The expert domain consists of 
generic definitions to avoid program redundancy and basic components of the means- 


ends analysis. 
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4. Tutor Domain Model 
Each pilot action prompts a message such as "OK.," “It is not recommended 
right now," and "That operator has to satisfy these conditions.” The tutoring domain 
model has two types: the first one teaches the mistakes of procedural action to the 
pulot, and the second one syntactical mistakes that may be corrected or not by 


tutoring system. 


C. DATA STRUCTURES IN PROGRAM 

Usually, the data structure of means-ends analysis consists of facts <fact> and 
operators <operator>. A list of facts <factlist> represents conditions or the 
differences between current states and goal and a list of operators <oplist> 


represents collection of operators. 


I. Input and Output 

To start the program, start states and goal states must be entered. The start 
states have to include five states of indicators and 20 states of switch status. Goal 
states always have to have an identified problem and a terminated problem. A state 
of components is created using random number selection to test student reliability. If 
a user wants to exercise a specific malfunction case, the start states can be given by 
the programmer to simulate that malfunction situation. 

During the execution, the user must provide the best choice during each flight 
phase until the user reaches the goal state using his knowledge of the fuel system. 
When the user reaches the goal state, the tutoring system prints the entire user 


action sequence. 


2. World Knowledge 
World knowledge consists of a definition of switch and indicator positions 


and operator definitions for means-ends analysis. 
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a. Definition of Switch and Indicator Position | 
This study uses position and indication predicates to represent the 
values of the fuel system indicator and the position of the fuel system switch. This 
allows the use of means-ends analysis to determine a concrete solution based on a 


vague knowledge of the fuel system of F-4 aircraft. This is useful in: 


1. Representing the knowledge of aircraft components as facts with ease. 


2. Reducing redundant programs in the recommended, precondition, 
deletepostcondition and addpostcondition. 


3. Finding out if certain names of switches or positions are available for our 
aircraft components. 


4. Finding out the opposite position of the switch for precondition and 
deletepostcondition. 

(1) Position. The position predicate consists of three or four 
arguments. The first argument represents the name of the switch, and second, third 
and fourth arguments represent the position of the switch. If there are three 
arguments in the switch, then it is a binary switch. If there are four arguments, then it 
is triple switch. The internal wing transfer switch is a binary switch which has normal 
and stop_trans positions. An extemal wing transfer switch is a triple switch which 


has outbd, wing, and center positions. 


position(internal_wing_transfer, normal, stop_trans). 
position(external_ wing transfer, outbd, wing, center). 

(2) Indication. The indication predicate consists of three or four 
arguments. The first argument represents the name of the indicator and second, third 
and fourth arguments represent the status of the indicator. The fuel quantity sector 
presents three status types: decrease, normal and increase. 


indication(fuel_quantity_sector, decrease, normal, increase). 
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(3) Existposition. The existposition predicate reads two arguments. 
The first one is the switch name and the second one 1s the switch position. If that 


position exists inthe switch, it will return true. 


existposition(internal_ wing transfer, normal). 


(4) Existindication. The existindication predicate reads two 
arguinents; the first argument is the indicator name and the second argument is the 


indicator status. 


existindication(fuel_quantity_sector, decrease). 


b. Means-ends Analysis 

This is quoted from Rowe’s tutor program "METUTORI6." 

(1) Recommended. The recommended predicate consists of two 
arguments, <difference list> and <operator>. 

(2) Precondition. The precondition predicate consists of three or four 
arguinents: <operator>, <conditional facts> and <precondition facts> for three 
arguments, and <operator>, <conditional ffacts>, <precondition facts> and 
<inessage> for four arguments. 

(3) Deletepostcondition. The deletepostcondition predicate consists 
of three or four arguments: <operator>, <conditional facts>, <deleted facts> for three 
arguments, and <operator>, <conditional facts>, <deleted facts>, <message> for 
four arguments. 

(4) Addpostcondition. The addpostcondition predicate consists of 
three or four arguments: <operator>, <conditional facts>, <added facts> for three 
arguments, and <operator>, <conditional facts>, <added facts> and <message> for 


four arguments. 
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3. Tutoring System 
This is quoted from Rowe’s technical report "Means-ends Tutoring.” [Ref. 
13] 
a. Tutor 
The tutor is top level of means-ends tutor, and consists of two 
arguments: start states <factlist> and goal <factlist>. 
b. Means_ends_tutor 
The means_ends_tutor consists of six arguments: current states 
<factlist>, goal <factlist>, operator list <oplist>, goal states <factlist>, stack and 
goal stack <factlist>. 
c. Check_with_student 
Check_with_student gets the operator from the student and consists 
of four arguments: student selected operator <operator>, current states <factlist>, 
the difference of current states and goal <factlist>, and computer-based choice 
<operator>. 
d. Handle_student_op 
Handle_student_op provides communication between students and 
the tutoring system. This consists of five arguments: student selected operator 
<operator>, computer-based operator <operator>, current states <factlist>, 
difference of current states and goal <factlist>, and student new selected operator 
<operator>. 
e. Writelist 
Writelist provides writing of lists. This consists of two arguments: 
list of facts or operators and the type of list. 
f. Once_means_ends 
This works a little differently from *means_ends_tutor’ in checking 
infinite loops for several situations. This consists of four arguments: start states 


<factlist>, goal <factlist>, operator list <oplist> and goalstate <factlist>. 
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D. IMPLEMENTATION OF THE EMERGENCY PROCEDURE 


1. Simplification of the Global Variable 

Existposition reads the switch name and position. If the switch and position 
is available, it will return true, otherwise it will retum false. Find_opposite reads the 
switch name and position, then returns the opposite position of the switch. This is 
very umnportant because in the binary switch if you want to move some switch 
position to another position, then the current position must be the precondition of 
another position and it will be the item of deletepostcondition. But, in the triple 
switch, we can’t apply this find_opposite predicate to find the opposite position. 
Instead, we use “not” predicate for the precondition and the other two positions for 


the items of deletepostcondition. 


2. Implementation of Means-ends Analysis in Emergency Procedure 

This part provides the translation of the expert’s knowledge to the real 

application by the knowledge engineer. This part includes information on the pilot 

procedure and desired switch position in certain conditions. Throughout the program, 

the goals are the identified problem and terminate problem. In order to reach the goal, 

we have to choose the pilot action according to the emergency procedure in the flight 
manual. 

a. Recommended Operator 

The recommended operator definition specifies the desired facts and 

the operator to reach the desired facts. There are two types of recommended operator: 

specific and generic. In specific operator, in order to get the identified problem status, 

we have to use an identify_problem operator. In the generic recommended operator, in 

order to get the "X " position of switch "SW," we have to use "set" operator with 


argument "SW" and "X," if the switch and position are available in the F-4 aircraft. 


recommended([identified(problem)], identify_ problem). 
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recommended ([status(S W,X)],set(S W,X)):- 
switch(S W),existposition(S W,X). 
b. Precondition of Operator 
The precondition definition consists of an operator, conditional facts 
and a fact list of preconditions which have to be satisfied. There are two types of 
preconditions: procedural preconditions and generic preconditions. The procedural 
precondition has several facts that the operator must apply under the identified 
problem, though the generic precondition has only one, the opposite position of that 


switch. 


precondition(identify_problem, , 
[looked_at(fuel_quantity sector), 
looked_at(fuel_quantity_counter), 
looked_at(external_tank), 
looked_at(centerline_tank), 
looked_at(centertank_jettison)]). 


precondition(set(internal_ wing transfer, normal), 
[problem(internal_wing_transfer_failure)], 
[identified(problem), 
Status(internal_wing transfer, stop trans), 
status(external_transfer, off)]). 


precondition(set(SW,X), ,[status(SW,OX), identified(problem)]):- 
binary _switch(SW), find_opposite(SW,0,OX). 


precondition(set(SW,X),_,[identified(problem), not status(SW,X)]):- 
tri_switch(SW). 

We have to satisfy these conditions to apply identify_problem, 
looked_at fuel_quantity_sector, looked_at fuel_quantity_counter, looked_at 
external_tank and looked_at centertank_jettison. Usually, a procedural precondition 
has two components: an actual procedural precondition and existence precondition. 


The preconditions of "set(internal_wing_ transfer, normal)" are identified problem, 
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"status(external_transfer, stop_trans)" which is a procedural precondition, and 
"status(internal_wing transfer, stop_trans)" which is the opposite position of the 
current position and is automatically an existence precondition. 

If there is no declared problem, the second argument of the condition 
clause will be filled with an empty list. The precondition of the operator needs the 
opposite position of the current position in a binary switch and any position except the 
current position in a triple switch. 

Preconditions are important, because they decide the sequence of a 
pilot procedure. Usually there is only one appropriate action for the pilot emergency 
procedure. But means-ends analysis can explore several ways to solve the problem. 
This can be multiprocessing, but it is more confusing to the pilot, so we used a 
simpler way. 

c. Deletepostcondition of Operator 

The deletepostcondition definition consists of an operator, condition 
facts and delete items. The find_opposite predicate is useful with a binary switch. 
But the external_wing_transfer switch has a triple position; if we want to set the 


switch to "wing, then we have to delete either a "center" or "outbd" position. 


deletepostcondition(set(external_wing transfer,wing), , 
[status(external_wing_ transfer, center), 
status(external_wing transfer, outbd)]). 


deletepostcondition(set(SW,X),_,[status(SW,OX))):- 
binary _switch(SW), find_opposite(SW,X,OX). 
d. Addpostcondition of Operator 
The addpostcondition definition consists of operator, condition facts 
and add items. It 1s sunpler than precondition and deletepostcondition because there 
is no need for an opposite position. The "identify_problem" reads four or five 


indicators from the look_at operator, then adds some problem facts. For the example 


21 


below, if the fuel quantity sector indicates decrease, the fuel quantity counter 
indicates decrease, the external tank is empty, and the centerline tank is empty, then 


addpostcondition adds an intemal-wing-transfer-failure problem fact. 


addpostcondition(set(SW,X),_,[status(S W,X)]):- 
switch(S W),existpostion(S W,X). 


addpostcondition(identify_problem, 
[indicator(fuel_quantity_sector,decrease), 
indicator(fuel_quantity_counter,decrease), 
indicator(external_tank,empty), 
indicator(centerline_tank,empty)], 
{[problem(internal_wing_transfer_failure), 
identified(problem)]). 


E. IMPLEMENTATION OF THE TUTOR 

This tutoring program provides general tutoring for a means-ends analysis 
approach. Means-ends analysis 1s similar to the way people solve many action- 
sequence planning problems. Thus, a simple way to turn means-ends analysis into a 
tutor is to run it in approximate synchrony with student. Our tutor kernel prompts the 
student for each action in tum while using its own independent reasoning to select a 
best action for the current state. This was originally written by Rowe [Ref. 13], but 


was modified to implement our program, specifically for handling output. 


I. Student Execution Error 
During the execution, check_with_student tmplements the tutoring strategies 
for different kinds of student errors. Some are straightforward such as_ spelling errors 
and precondition violations, but others require complex analysis with calls to 


*means_ends’ on hypothetical states created by the student. 
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2. Natural Language 
The predicate writelist is used for the natural language. The wnitelist takes 
two arguments: fact list or operator list and type of list, since output is printed 
differently depending on whether it is states, preconditioned lists, or operators. In 
writelist2, we initialize the item number and total character numbers of previous item. 
If the item number is odd, it is noted at the beginning of the line. If the item number is 


even, it 1s noted in column 40 of the line. 
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V. ANALYSIS 


As previously mentioned, the pilot emergency tutoring system provides test cas- 
es for six major emergencies in the fuel system. To test it, we tested the six emergen- 
cy cases, the normal case, a general case using total switches in the fuel system, and 
a random selecting case with computer-generated random numbers. 

Table I presents the global and local stack and CPU runtime of the program. Some- 
tunes it is necessary to extend the global stack space to run the program. Debugflag 
in the reverse failure and general cases could not be used without the extension. 

The CPU run time ranges from 48.77 sec for test streaming from the underside of 
aircraft following center jettison to 188.20 sec for the general test case on an ISI 
workstation. Since the reverse transfer of fuselage fuel is the most complicated case 
and has embedded procedures, the CPU run time is 99.52 sec. The general case test 
similar to the reverse transfer of fuselage fuel must compare all switch positions with 
goal state, not the related switches. There is no difference in pilot procedure, but the 
CPU run time is increased to 188.20 sec. But a general case must be used in applying 
means-ends analysis in real life. 

Two machines were used to test the tutoring system: an ISI workstation and a 
SPARC station. In the test of internal wing fuel failing to transfer, the ISI worksta- 
tion took 52.23 sec, while the SPARC station took 15.23 sec. The SPARC station is 
faster than the ISI workstation in every test case. 

During the test, students made many mistakes in writing the names of component 
and status. Some cases can be accepted, while in other cases, the student has to type 
the correct name of the component and status again. During the test, if students have 
a different solution than the computer-based solution, then the student answer will be 


regarded wrong. 
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Porter’s [Ref. 7] previous work is comparable. It used means-ends analysis to 
handle aircraft emergencies, but did not tutor. CPU run time differs: Porter’s expert 
system took 0.39 sec to 2.53 using the Turbo Prolog in PC. Our tutoring system takes 
14.25 sec to 53.92 sec using C-Prolog in SPARC station. It is not fair to compare CPU 
run times, because our tutoring system is a complicated and embedded program. An- 
other major difference is that our system uses two high-level objectives of identified 


problem and terminated problem. 
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TABLEI RESULT OF OUTPUT 


CPU Run Global Local 
Emergency Time Stack Stack 
Internal Wing ISI §2.23 Sec 280 K 23.5 K 
Fuel Failure 
SPARC 15.23 Sec 281K 23.5K 
Centerline Fuel 64.05 Sec 320 K 25.8 K 
Failure 
18.73 Sec 320 K 25.8 K 
67.58 Sec 313K 25.9 K 
ISI 99.52 Sec 479 K 319K 
SPARC 28.62 Sec 479 K 31L.9K 
SPARC 14.25 Sec 249 K 22.4 i 
Wing Fuel 51.15 Sec 221K 20.2 K 
Leaking 
SPARC 13.40 Sec 217 K 20.2 K 
Normal ISI §3.28 Sec 378K 23.3 K 
situation 
SPARC 15.45 Sec 378 K 23.3K 
188.20 Sec 1042 K 42.3K 
SPARC 53.92 Sec 1042 K 42.3 K 
nie | max | BaK 
SPARC 13.77 Sec 330K 29.2 K 
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VI. CONCLUSIONS 


A. CONCLUSIONS 

The pilot emergency tutoring system uses an intelligent education program to 
reduce pilot errors during an inflight enueivency. It uses knowledge of the fuel system 
to diagnose and correct problems. By helping the pilot analyze the problem and 
determine how to fix it, the pilot can learn to avoid wrong decisions and procedures. 
By adding other aurplane systems to the program, such as the engine, and electrical 
and hydraulic systems, the pilot overload from decision-making could be reduced. 
Consequently, the pilot can be free to serve as aircraft commander and can reduce the 
decision and procedure errors. 

This pilot tutoring system can run on any system which can use C-Prolog. Using 
natural language makes it a_ user-friendly system. The debug flag feature provides a 


development program for the programmer. 
B. FURTHER WORK 


Further work on a computer tutoring system could involve: 


1. Combining other component emergencies such as electrical failure, hydraulic 
failure and engine failure in order to make a whole aircraft tutoring system. 


2. Combining the knowledge of diagnostics in an aircraft maintenance expert 
system into the pilot emergency tutoring system. 


3. Using the graphics to read input from students and write output, more like a 
simulator, to improve the efficiency of education. 
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APPENDIX A 


TEST OF EMERGENCY CASE 


A. INTERNAL WING FUEL FAILS TO TRANSFER 


C-Prolog version 1.5 
| ?- [expert,tutor]. 
expert consulted 19672 bytes 2.86667 sec. 
tutor consulted 38916 bytes 4.35 sec. 
yes 
| ?- internal. 
! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM ! 
You are the air commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 
Your objectives: 
problem is identified and problem is terminated. 
Wait a moment while I analyze the problem thoroughly. 
Type h for help. 
2H te He ake te ae he ote ote ote ate ake ake ae fe fe ate ote ate ate fe fe fe ake ate ote ate te ake ake ofeach ae ok 
The following facts are now true: 
extemal transfer ts off, intemal wing transfer is stop trans, 
refuel probe its extended, cb internal wing transfer is pulled, 
and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at centerline_tank. 
OK. 
He He he He te ate he he hee af he ote ae fe ake ae ake ake ate ake ake ake afe 2k aie fe ake ote ate fe ake ake ake ake ate fe aR ake ake af 2 ai of oie ake ie aie oe oc 
The following facts are now true: 
centerline tank is looked at, extemal transfer is off, 
uiternal wing transfer is stop trans, refuel probe is extended, 
cb intemal wing transfer is pulled,and wing transfer pressure is normal. 
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What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at centertank_jettison. 
OK. 


ate ate ate ate ate ate afc ake afc afe afc ake ake ate ake ate ate ate ate ate ate ate ate ate ate ake ake ate ake ate ate ate ate ate ake ake ate ate ate ate ate ate ake ake ake ake ake ake ake ake 


The following facts are now true: 


centertank jettison is looked at, centerline tank is looked at, 
extemal transfer 1s off, internal wing transfer is stop trans, 
refuel probe is extended, cb internal wing transfer is pulled, 


and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel quantity sector. 
OK. 
te ate ate he af te ae ake fe ahe ate ahe ah fe ah ate ate ate ake ate ate ake ake ae ate ake fe ah ae ake ake ate ate ate ake ate ate ake ate ate ate ate ate ate ate ate aie ake ate aie 
The following facts are now true: 
fuel quantity sector 1s looked at, —_ centertank jettison is looked at, 
centerline tank 1s looked at, extemal transfer is off, 
internal wing transfer is stop trans, refuel probe is extended, 
cb internal wing transfer is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at fuel_ quantity counter. 
OK. 
ate afe he afc ate ae ate ae afc afe ate ae ae afc ahe afe ate afc af af ake afc ake ate afc ate af afc ae ate ake ake ate ate ake afc ate ate ake ake ate ate ate aie ate ate ate afc afc afc 
The following facts are now true: 


fuel quantity counter is looked at, — fuel quantity sector is looked at, 


centertank jettison its looked at, centerline tank is looked at, 
external transfer is off, internal wing transfer is stop trans, 
refuel probe is extended, cb internal wing transfer is pulled, 
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and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at external_tank. 
OK. 
de she He ate ate ate ate ae ate afc fe ate ate ake ote ate afc ate he afc ae she he afc af ate af ake ate ate ate ate fe ate ake ae he ate she afc fe afe ae afc ake ate he ate ake ie 
The following facts are now true: 
extemal tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, centertank jettison 1s looked at, 
centerline tank is looked at, extemal transfer is off, 
intemal wing transfer is stop trans, refuel probe is extended, 
cb internal wing transfer is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: identify problem. 
OK. 
Failure of internal wing fuel to transfer caused by: 

1. The wing tanks failing to pressurized 
2. The wing transfer valves failing to open 

ate Hie ate ae af ie afeafe fe ate af te afe Se aie ate ate afe te ale ote ate ake ate ofc te ate ate afe ate ote ate ake ate ae of af ate ate ake ate ote ate ate ate ote ake ate ate ake 
The following facts are now true: 
uitermal wing transfer fail is problem, problem is identified, 


extemal tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector ts looked at, — centertank jettison is looked at, 
centerline tank is looked at, extemal transfer is off, 


internal wing transfer is stop trans, refuel probe is extended, 
cb internal wing transfer is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set internal_wing transfer normal. 
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OK. 
OR ROR RRR if RO fof fof fe $C fe oboe afc fe oboe af of afc ake ofc ofc af oe ake Fe fe ofc oe afc oe he oe afc af oe of ae of ofc fe af fe 
The following facts are now true: 
internal wing transfer is normal, internal wing transfer fail is problem, 
problem is identified, external tank is looked at, 
fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 
external transfer is off, refuel probe is extended, 
cb intemal wing transfer is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set refuel_ probe retracted. 
OK. 


2 oe fe fe of Fe oF of oe ok oe te aR ofc fe of af ake afc of aie ake ake ake ake afc ake afc ake ake ake fe ae ae ae ake ake ae ake ae af ae fe ae ae ae fe aie of of 


The following facts are now true: 


refuel probe is retracted, internal wing transfer is normal, 
internal wing transfer fail is problem, problem is identified, 
external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector 1s looked at, centertank jettison is looked at, 
centerline tank is looked at, external transfer is off, 


cb internal wing transfer is pulled,and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set cb_internal_wing transfer pushed. 
OK. 
2K bk boi k ak foi tote iototo toi tooo oioaie ake ake ake aici ote kook fe ate otic ote oc ake af afc ofc ote ae ake ake af ofc ate afc 
The following facts are now true: 
cb internal wing transfer is pushed, __ refuel probe is retracted, 
internal wing transfer is normal, intemal wing transfer fail is problem, 
problem is identified, external tank is looked at, 
fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 
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external transfer is off, and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set wing transfer_pressure ovrd_trans. 
OK. 
SEAGIG GGG ICICI III I III IOI Ik 
The following facts are now true: 
wing transfer pressure is ovrd trans, cb internal wing transfer is pushed, 
refuel probe is retracted, internal wing transfer is normal, 
internal wing transfer fail is problem, problem is identified, 
external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, | centertank jettison is looked at, 
centerline tank is looked at, and external transfer is off. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: terminate_problem. 
OK. 


Full list of your actions: 


look_at centerline_tank, look_at centertank_jettison, 
look_at fuel_quantity_sector, look_at fuel_quantity_counter, 
look_at extemal_tank, identify_problein, 
internal_wing_transfer to normal, refuel_probe to retracted, 


cb_intemmal_wing_transferto pushed, wing_transfer_pressure to ovrd_trans, 
and terminate_problem 

yes 

| ?- statistics. 

atom space: 96K (in use: 36064, max. used: 36064) 

aux. stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 2624) 

heap: 1000K (in use: 122540, max. used: 189732) 

global stack: 1900K (in use: 0, max. used: 280308) 

local stack: 1OOOK (in use: 300, max. used: 23568) 
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Runtime: 52.23 sec. 

yes 

| ?- halt. 

[ Prolog execution halted ] 
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B. CENTERLINE FUEL FAILS TO TRANSFER 


C-Prolog version 1.5 
| ?- [expert,tutor]. 
expert consulted 19672 bytes 2.83333 sec. 
tutor consulted 38916 bytes 4.23333 sec. 
yes 
| ?- center. 

! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM |! 

You are the air commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 

Your objectives: 
problem is identified and problem is terminated. 
Wait a moment while I analyze the problem thoroughly. 
Type h for help. 
ae Re of 2k of ae ae af oe fe ake ake ake aie ake ake ake ake ake ake ake ake ake ake ake ake af af ake ake of ake af af ake oi ake aie aie oie ake of ac fe aie aie fe 2c 2c ok 
The following facts are now true: 
external wing transfer is wing, cb extemal wing control is pulled, 
cb left fuel valve power is pulled, —_ refuel probe is extended, 
and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at centerline_tank. 
OK. 
aie ie 2h ake 2h ie ake ate ae ake 2h ae af 2h ae ake aie ake af ie ake fe aie ake ake aie ake ake 2k ake af 2c ake 2k ie ake ake ake ae ake fe ake ake 2k aie aie ake ie oie ok 
The following facts are now true: 
centerline tank is looked at, extemal wing transfer is wing, 
cb external wing control is pulled, cb left fuel valve power is pulled, 
refuel probe is extended, and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at centertank_jettison. 
OK. 
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2k ake ate ake ake ake ake ake ate ak ake ae ake ake ake ake ake ake ake ake ake ake ake ake ake ake ae ake ake ake ate ake ate ake ate ake ale ake ae ake ate ae af ake ake ake ae aie ak 2 


The following facts are now true: 
centertank jettison is looked at, centerline tank is looked at, 
external wing transfer 1s wing, cb extemal wing control is pulled, 
cb left fuel valve power is pulled, _ refuel probe is extended, 
and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel_quantity_sector. 
OK. 
SIO II kG I ki I I II kk kkk ak sk akeak kok ake ake sk koko ake ake ak ake ke ake ak ak 
The following facts are now true: 
fuel quantity sector is looked at, centertank jettison is looked at, 
centerline tank 1s looked at, external wing transfer is wing, 
cb external wing control is pulled, cb left fuel valve power is pulled, 
refuel probe is extended, and wing transfer pressure is nonnal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look at fuel_ quantity counter. 
OK. 
TErrrerrrerrCeerrerrecrrerrr re rrerertrerrerre ree. eet £2 
The following facts are now true: 
fuel quantity counter is looked at, —_ fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 
external wing transfer 1s wing, cb external wing control is pulled, 
cb left fuel valve power is pulled, —_— refuel probe is extended, 
and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(—INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
I: lovk_at external_ tank. 


35 


OK. 
He He oe ote he ote he ote oh ake ke te te ote He ke ake ake te ote ote he ae fe of he Re ah ate he he af ah ah ake he ate ote hee ate ake ate ae ae fe ae ae ae oe 
The following facts are now true: 
external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, centertank jettison is looked at, 
centerline tank is looked at, extemal wing transfer is wing, 
cb external wing control is pulled, _—_cb left fuel valve power 1s pulled, 
refuel probe is extended, and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: identify problem. 
OK. 
Failure of the centerline fuel to transfer caused by: 
1. The defueling shutoff valve failing to open position 
2. The refueling valve failing to the closed position 
3. The tank failing to become pressurized 
He He He he He he ae He fe He ate She te He ate She ote fe ate he ote Ke ate af he Ke ate ate ate aie ate ate ofeach ate ote aie ake fe afe aie afe ate ake ate ate ie ake 
The following facts are now true: 
centerline transfer fail is problem, problem is identified, 


external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, | centertank jettison is looked at, 
centerline tank is looked at, external wing transfer is wing, 


cb external wing control is pulled, cb left fuel valve power is pulled, 
refuel probe is extended, and wing transfer pressure is nonnal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set external_ wing transfer center. 
OK. 
2He He oe ote ate he he ote ote te ote te oh he ote ate ake ote ote ate ote ote ake ote ote ate ake ote ote ote ote ate ah ote ate ae ate ake ake ke ate ake ake ate ate ate ake ae ake kc 
The following facts are now true: 
external wing transfer is center, centerline transfer fail is problem, 
problem is identified, external tank 1s looked at, 
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fuel quantity counter is looked at, fuel quantity sector 1s looked at, 
centertank jettison 1s looked at, centerline tank is looked at, 
cb external wing control is pulled, cb left fuel valve power is pulled, 
refuel probe is extended, and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set cb_external_ wing control pushed. 
OK. 
Me He ste ae she fe aes fe af eae ah afc ae ah afc ae ate she af she she ate ate he ate ate she ate ate she ste ate af she she ate she he he af he aie he she she ah 3h 3c 
The following facts are now true: 
cb external wing control is pushed, external wing transfer is center, 
centerline transfer fail is problem, — problem 1s identified, 


external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, centertank jettison is looked at, 
centerline tank 1s looked at, cb left fuel valve power is pulled, 
refuel probe is extended, and wing transfer pressure is normal. 


What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set cb_left_fuel_valve power pushed. 
OK. 
2 He she ste ah of Fe ate she ate ate Fe aie ate she ae she afe afe She ste ake atte ae he she ate af she he ae ste fe ate ate ste ate she ste aie ae she ie oe she ate hc she 3c 
The following facts are now true: 
cb left fuel valve power is pushed, cb extemal wing control is pushed, 
external wing transfer is center, centerline transfer fail is problem, 
problem is identified, external tank is looked at, 
fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank 1s looked at, 
refuel probe is extended, and wing transfer pressure 1s normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 


ce 


|: set refuel_probe retracted. 

OK. 

2 ste she 3h she she oh fe oh ok ake ate ok ke oh He ake fe ak ok ake ak ok Ke ke ke ake ae she she ae she she af afe fe ae fe he she he she fe ae ae fe ae fe 3c 

The following facts are now true: 

refuel probe is retracted, cb left fuel valve power is pushed, 


cb external wing control is pushed, — external wing transfer is center, 
centerline transfer fail is problem, problem is identified, 


external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, and wing transfer pressure is normal. 


What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(NDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set wing transfer_pressure ovrd_ trans. 
OK. 
He he ake He ae oh ake She ke ae 3 fe ai oh oh ae ae she ke ak ae ke ak ae ae ak ok ok ake ake ak ok ae a ake ae ae ak ok 3 ok ok ok 3k ok ok ok ok ok 
The following facts are now true: 
wing transfer pressure 1s ovrd trans, refuel probe is retracted, 
cb left fuel valve power is pushed, | cb external wing control is pushed, 
extemal wing transfer is center, centerline transfer fail 1s problem, 
problem ts identified, external tank is looked at, 
fuel quantity counter is looked at, —_ fuel quantity sector is looked at, 
centertank jettison 1s looked at, and centerline tank is looked at. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
I: terminate_problem. 
OK. 
Full list of your actions: 


look_at centerline_tank, look_at centertank_jettison, 

look_at fuel_quantity_sector, look_at fuel_quantity_counter, 
look_at extemal_tank, identify_problem, 

external_wing_ transfer to center, cb_extemal_wing_control to pushed, 
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cb_left_fuel_valve_power to pushed, _ refuel_probe to retracted, 
wing _transfer_pressure to ovrd_trans,and terminate_problem 
yes 

| ?- statistics. 

atom space: 96K (in use: 36016, max. used: 36016) 

aux. stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 2772) 

heap: 1OOOK (in use: 128292, max. used: 204184) 

global stack: 1900K (in use: 0, max. used: 320508) 

local stack: 1O000K (in use: 300, max. used: 25896) 

Runtime: 64.05 sec. 

yes 

| ?- halt. 


[ Prolog execution halted ] 
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C. EXTERNAL WING FUEL FAILS TO TRANSFER 


C-Prolog version 1.5 
| ?- [expert,tutor]. 
expert consulted 19672 bytes 2.85 sec. 
tutor consulted 38916 bytes 4.21667 sec. 
yes 
| ?- external. 
! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM ! 
You are the air commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 

Your objectives: 
problem is identified and problem is terminated. 
Wait a moment while I analyze the problem thoroughly. 
Type h for help. 
Ae ae ee ae ie aie he he he a ee oe he oe ae ee ee ee ote ee ee oe ote ot eae ae RR ae oe a oe 
The following facts are now true: 
external wing transfer is center, cb external wing control is pulled, 
refuel probe is extended, cb fuel valve power is pulled, 
and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at centerline_tank. 
OK. 
He Ae Ae he He Ae Ae he he he Ae He he he he he he eee Ae he ee he ee Ae he ee ce he ee he he he ae ee ke oe 
The following facts are now true: 
centerline tank is looked at, extemal wing transfer is center, 
cb external wing control is pulled, _ refuel probe 1s extended, 
cb fuel valve power is pulled, | and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for statusSSWITCH,POSITION) 
|: look_at centertank jettison. 
OK. 
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He he fe he fe he ake ke fe ake he he ake he ke ah ake fe fe ah he fe he fe he ie te he te he ee te ie ae ae he he ee ote ie ie te Hee ke ee 2c 


The following facts are now true: 


centertank jettison is looked at, centerline tank is looked at, 
external wing transfer is center, cb external wing control is pulled, 
refuel probe is extended, cb fuel valve power is pulled, 


and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel_ quantity sector. 
OK. 
FO OIG III IES OOO III IR AK 
The following facts are now true: 
fuel quantity sector is looked at, — centertank jettison is looked at, 
centerline tank is looked at, extemal wing transfer is center, 
cb external wing control is pulled, —_ refuel probe is extended, 
cb fuel valve power is pulled, |= and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at fuel_ quantity counter. 
OK. 
he ae ae a he he he oe af af oe ae ae ae af oe ae oe ke he fe ae ae 2 ate af he af ate ke ke ae af af ae ae ae ake ake ake ah ate ae ke ke ah ah ah ae oe 
The following facts are now true: 
fuel quantity counter 1s looked at, —_ fuel quantity sector is looked at, 


centertank jettison is looked at, centerline tank 1s looked at, 
external wing transfer is center, cb external wing control is pulled, 
refuel probe is extended, cb fuel valve power is pulled, 


and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|; look_at external tank. 


4] 


OK. 
He he ake ate ate he ote te ote he ake fe fe fe 2k ake fe ae oe ke ate ate ake ake ake of ake ake ake fe ake ake ate ate ate ake ake ate oie ke hee ake ake ae ate ate ae ae oe 
The following facts are now true: 
external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector ts looked at, centertank jettison 1s looked at, 
centerline tank is looked at, external wing transfer is center, 
cb external wing control is pulled, _ refuel probe is extended, 
cb fuel valve power is pulled, | and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: identify_problem. 
OK. 
Failure of the external wing fuel to transfer caused by: 

1. The extemal wing shutoff valve failing to the closed 
2. The tanks failing to become pressurized 

ote te ae He he fe ke of oe fe fe fe ie ake fe ofe ofe ote ate fe ate fe fe ate ate ake oe oe fe fe ote ake ah ake ake fe fe ote ae oe oe ate fee ate ake fe fe fe 3 
The following facts are now true: 
external wing transfer fail is problem, problem is identified, 


external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, extemal wing transfer is center, 


cb external wing control is pulled, —_ refuel probe is extended, 
cb fuel valve power is pulled, and wing transfer pressure is nomnal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set external wing transfer outbd. 
OK. 
fe fe ae ae ate ate ae ate ae He oie fe he he he ate ate oie ate he he he ate fe aie ae ote ae fe oe ake a ake ake ake ake ake oe ake ake he ie ate ok fe ate fe ote ae ake 
The following facts are now true: 
external wing transfer is outbd, external wing transfer fail is problem, 
problem is identified, extemal tank is looked at, 
fuel quantity counter is looked at, fuel quantity sector is looked at, 
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centertank jettison is looked at, centerline tank is looked at, 
cb external wing control is pulled, _—_ refuel probe is extended, 
cb fuel valve power is pulled, | and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set cb_external_wing_ control pushed. 
OK. 
ROR OIG RRR ROR OR RRR III Rk ak keke ak akoak ak ake ake ak ake ak ake ake ake ak ake ake ake ake ake ake ake a ak 
The following facts are now true: 
cb external wing control is pushed, — external wing transfer is outbd, 
external wing transfer fail is problem, problem is identified, 


extemal tank 1s looked at, fuel quantity counter 1s looked at, 
fuel quantity sector is looked at, Centertank jettison 1s looked at, 
centerline tank 1s looked at, refuel probe is extended, 

cb fuel valve power is pulled, | and wing transfer pressure is normal. 


What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set refuel_ probe retracted. 
OK. 


FOC ICICI kkk RGR IG kkk kkk ak kok ake kok kak ak ak akoak ak ak ak ake ak ak akak ak ake ake ak ake ake 


The following facts are now true: 


refuel probe is retracted, cb external wing control is pushed, 
extemal wing transfer is outbd, external wing transfer fail is problem, 
problem is identified, extemal tank is looked at, 

fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 

cb fuel valve power is pulled, = and wing transfer pressure is normal. 


What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(NDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set cb _fuel_ valve power pushed. 
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OK. 
ROR OR OR RK RoR RR RR RR RK RR RR kk kkk kk ak ak kk i ok ake ake ok i oi ok ok ak ok ok 
The following facts are now true: 
cb fuel valve power is pushed, refuel probe is retracted, 
cb external wing control is pushed, _—_ external wing transfer is outbd, 
external wing transfer fail is problem, problem is identified, 
external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set wing _transfer_pressure ovrd_trans. 
OK. | 
We He ate ake oe ake ate ake ak ai ak a 2 oe a a a ake ak ate ak ake ok a ake ake ate ae ake ak ake a a ate kc a ate ake ake 2 3c ke aie oie a ak i a 
The following facts are now true: 
wing transfer pressure is ovrd trans, cb fuel valve power is pushed, 


refuel probe is retracted, cb external wing control is pushed, 
external wing transfer is outbd, external wing transfer fatl is problem, 
problem is identified, external tank is looked at, 


fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, and centerline tank is looked at. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: terminate_problem. 
OK. 
Full list of your actions: 


look_at centerline_tank, look_at centertank_jettison, 

look_at fuel_quantity_sector, look_at fuel_quantity_counter, 
look_at external_tank, identify_problem, 

external_wing_ transfer to outbd, cb_external_wing_control to pushed, 
refuel_probe to retracted, cb_fuel_valve_power to pushed, 


wing_transfer_pressure to ovrd_trans,and terminate_problem 
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yes 
| ?- statistics. 

atom space: 96K (in use: 36016, max. used: 36016) 
aux. stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 2744) 

heap: LOOOK (in use: 129820, max. used: 203072) 
global stack: 1900K (in use: 0, max. used: 313440) 
local stack: 1O00K (in use: 300, max. used: 25996) 
Runtume: 67.58 sec. 

yes 

| ?- halt. 

[ Prolog execution halted | 
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D. REVERSE TRANSFER OF FUSELAGE FUEL 


C-Prolog version 1.5 
| ?- [expert,tutor]. 
expert consulted 19672 bytes 2.81667 sec. 
tutor consulted 38916 bytes 4.26667 sec. 
yes 
| ?- reverse. 

! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM |! 

You are the air commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 

Your objectives: 
problem is identified and problem is terminated. 
Wait a moment while [ analyze the problem thoroughly. 
Type h for help. 
ake ake ake ake 4 ake ake she ake abe ake ah ake ake ake ake ake ake ake ake ae ake ake BC oR ake oe ke ake ake ae ae ake ak ai ok ae ae ak ake ake ake ake ok ak ake ak ak ak ok 
The following facts are now true: 
ram air turbine is retracted, generators Is on, 
cb wing transfer control is pushed, cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pulled, 
and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(NDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at centerline_tank. 
OK. 
aie ak ak ake ak ake ake ak ake abe ak ake ae ak ake ake af ae ake ake ake ake ake ake ae a ake ake ake ake ake ake ake ak ak ake ak ake ake abe ake a8 ak ake ake ake ake ak ake ake 
The following facts are now tme: 
centerline tank is looked at, ram air turbine is retracted, 
generators is on, cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(NDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
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|; look_at centertank_jettison. 
OK. 
i 2k ake ake aie ake ate ake ak ake ok ake ake ak ake ae ake ake ake ake ok ake ke a ake ak ake ake ake ake oe ake ake ake ak ake ake a ake ake ok ake ake ake ok oie ake ok ake ak 
The following facts are now true: 
centertank jettison is looked at, centerline tank is looked at, 
ram air turbine is retracted, generators is on, 
cb wing transfer control is pushed, _cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pulled, 
and wing transfer pressure is normal. 
Whiat operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(NDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel_ quantity sector. 
OK. 


3 he oe oe ake ae ke ake ake ke a ake ae ofa ak ake ake a ake ake ake ake ate ake ai ake ake a ake ke ake ok ate ake aK ake oe ak ok ake ke ak ake ak ok ok ake ok ok 


The following facts are now true: 


fuel quantity sector is looked at, centertank jettison is looked at, 
centerline tank is looked at, rain air turbine is retracted, 
generators is on, cb wing transfer control is pushed, 


cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel_quantity counter. 
OK. 
Me ok oe ake ae he ae ake ake ake ake ake ake ake ake ke ok oe ie ok oh ake ok ake ake i ak 2k ke abe ake ake oe ake ake a oe ke ai a ake ake ok ake ake ak ok ate akc ok 
The following facts are now true: 
fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 
rain air turbine is retracted, generators is on, 
cb wing transfer control is pushed, cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pulled, 
and wing transfer pressure is normal. 
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What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at external_tank. 
OK. 


HE He HH He He He HH eH He HR HH He HH He RH HH HH HH RH HR He i HK HK KK eK KK 


The following facts are now true: 


external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, | centertank jettison is looked at, 
centerline tank is looked at, ram air turbine is retracted, 
generators is on, cb wing transfer control is pushed, 


cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
I; identify_problem. 
OK. 
Reverse transfer of fuselage fuel caused by: 

A fatled open defuel valve 


He He He he he he he he she ate te ie fe He He He HH He He HH He HH HC eH HH HH He HH HH HH He He He KK KK KK 


The following facts are now true: 


reverse transfer fail is problem, problem is identified, 

external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, — centertank jettison is looked at, 
centerline tank is looked at, ram air turbine is retracted, 
generators is on, cb wing transfer control is pushed, 


cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(NDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set ram_air_turbine extended. 
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OK. 
SOIC IO IOI IGRI IR kkk kok kk kak ak akak ak ake ak ake ak ak ak ake ake ake ake ake ake akc ake ake ake ake akc ake akc ake ak 
The following facts are now true: 
ram air turbine 1s extended, reverse transfer fail is problem, 
problem is identified, extemal tank is looked at, 
fuel quantity counter is looked at, fuel quantity sector 1s looked at, 
centertank jettison is looked at, centerline tank is looked at, 
generators is on, cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set generators off. 
OK. 


SOR ORR kk RR kok kkk Rk kkk ak ik gk ak kak ak ok ak ak ak ak ak ake ake ak ake ake ak ak ake ak ake akc akc ake ake ak 


The following facts are now true: 


generators Is off, ram air turbine is extended, 

reverse transfer fail is problem, problem is identified, 

external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, cb wing transfer control 1s pushed, 


cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set cb_left_boost_pump_control pulled. 
OK. 
Me ie he ae 3h aie oe fe ae ae fe ke ke ae eae ake ae ae aie oe ke ae ake ke ke fe ake ake fe ate ake ake ae ake ake ak ake ake ake ake ake ake ake afc ak ake ofc ae ak 
The following facts are now true: 
cb left boost pump control is pulled, generators is off, 
ram air turbine 1s extended, reverse transfer fail is problem, 


problem ts identified, extemal tank 1s looked at, 
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fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 
cb wing transfer control is pushed, | cb boost pump emer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_atdNDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set cb_boost_pump_emer_control pulled. 
OK. 
fe ie ake ake 2k ake ake ake ae aie ake ake ake aie ake ake ak ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake akc ake ake ake ake ake ake ake ake ate ake ake akc akc 
The following facts are now true: 
cb boost pump emer control is pulled, cb left boost pump control is pulled, 


generators is off, ram air turbine is extended, 

reverse transfer fail is problem, problem is identified, 

external tank is looked at, fuel quantity counter ts looked at, 
fuel quantity sector is looked at, | centertank jettison is looked at, 
centerline tank is looked at, cb wing transfer control is pushed, 


cb right boost pump control ts pulled,and wing transfer pressure is normal. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set generators on. 
OK. 
We ake aie ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ae ake ake ake fe ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake ake akc fe 
The following facts are now true: 
generators 1s on, cb boost pump emer control is pulled, 
cb left boost puinp control is pulled, ram air turbine is extended, 
reverse transfer fail is problem, problem is identified, 
external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_— centertank jettison is looked at, 
centerline tank is looked at, cb wing transfer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 


For example: 
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type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set ram_air_turbine retracted. 
OK. 


He Ke he te ke ke ke ok ak ote ate 2k ok ok ok ok kk ak ok kk ok a oe ok ke kk a ok ok kk eo oe toe ee oe a ke ick 


The following facts are now true: 


ram air turbine 1s retracted, generators Is on, 

cb boost pump emer control is pulled, cb left boost pump control is pulled, 
reverse transfer fail is problem, problem 1s identified, 

external tank is looked at, fuel quantity counter 1s looked at, 


fuel quantity sector is looked at, centertank jettison is looked at, 
centerline tank is looked at, cb wing transfer control is pushed, 
cb right boost pump control is pulled,and wing transfer pressure is normal. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set wing_transfer_pressure ovrd_trans. 
OK. 
ae 2 3k ak 3 ake oe ake ak ak ok ake 2c ke ok ote ok ake ok ake ok ake ake ke ake ke i oe ake ok i ake ok ok i tc ok oe ok ok a 2k ok i ak ok oe ok 
The following facts are now true: 
wing transfer pressure is ovrd trans, ram air turbine is retracted, 
generators 1s on, cb boost pump emer control is pulled, 
cb left boost pump control is pulled, reverse transfer fail is problem, 
problem 1s identified, external tank is looked at, 
fuel quantity counter is looked at, — fuel quantity sector 1s looked at, 
centertank jettison is looked at, centerline tank 1s looked at, 
cb wing transfer control is pushed,and cb right boost pump control is pulled. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(NDICATOR) 

type set SWITCH POSITION for status;SWITCH,POSITION) 
|: terminate_problem. 
OK. 
Full list of your actions: 
look_at centerline_tank, look_at centertank_jettison, 
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look_at fuel_quantity_sector, look_at fuel_quantity_counter, 
look_at extemal_tank, identify_problem, 
ram_air_turbine to extended, generators to off, 
cb_left_boost_pump_control to pulled, cb_boost_pump_emer_control to pulled, 
generators to on, ram_air_turbine to retracted, 
wing_transfer_pressure to ovrd_trans,and terminate_problem 

yes 

| ?- statistics. 

atom space: 96K (in use: 36092, max. used: 36092) 

aux. stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 2960) 

heap: 1000K (in use: 149036, max. used: 231496) 

global stack: 1900K (in use: 0, max. used: 479100) 

local stack: 1OOOK (in use: 300, max. used: 31900) 

Runtime: 99.52 sec. 

yes 

| ?- halt. 

[ Prolog execution halted ]} 
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E. FUEL STREAMING FROM UNDERSIDE OF AIRCRAFT FOLLOWING 
CENTER JETTISON 


C-Prolog version 1.5 
| ?- [expert,tutor]. 
expert consulted 19672 bytes 2.86667 sec. 
tutor consulted 38916 bytes 4.26667 sec. 
yes 
| ?- stream. 
! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM |! 
You are the air commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 

Your objectives: 
problem is identified and problem 1s terminated. 
Wait a moment while I analyze the problem thoroughly. 
Type h for help. 
2c ie ah ae ke oe ake aie ate ae ake ak ake ake ke ae ate ate ae ake ake fe ake ale ate ate ake ake ake ake ate of ok aie ake ake ake ke oe ate ake ake ake oe ote ok ake ate ake ak 
The following facts are now true: 
wing transfer pressure is ovrd trans, cb refuel probe is pushed, 
refuel probe is extended, and cb fuel boost pump is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at centerline_tank. 
OK. 
2c ate ate ate oie te te ake ae ae ake ake ate ate ate ate ae ake ate fe ate ate oe fe oe ake aie ake ake aie ake ak ok ake ake ok aie ake ok ok ake ate ake ate ate ake ate ate kc kc 
The following facts are now true: 
centerline tank is looked at, wing transfer pressure is ovrd trans, 
cb refuel probe is pushed, refuel probe is extended, 
and cb fuel boost pump is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look at centertank jettison. 


a3 


OK. 
He he He hee te he he oe oe ate ate He ote te ote te te ate te ate he ote te ate ate ate he he ate te ate ate ate he ee ie te te ote oe oe oe He He he oe oe ic 
The following facts are now true: 
centertank jettison is looked at, centerline tank is looked at, 
wing transfer pressure is ovrd trans, cb refuel probe is pushed, 
refuel probe is extended, and cb fuel boost pump 1s pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at fuel_quantity sector. 
OK. 


He He he he HC ate ate ate oe oe ate NC oR ote AC ote ate Ne ate ote Cte Re te ate Ne ae ote ate he ote he ate ate oe ote he ote ote oe He ote He ote te tHE oe ae ok 


The following facts are now true: 


fuel quantity sector is looked at, —_ centertank jettison 1s looked at, 
centerline tank is looked at, wing transfer pressure is ovrd trans, 
cb refuel probe is pushed, refuel probe is extended, 


and cb fuel boost pump is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at fuel_ quantity counter. 
OK. 
Me ote He He He he ate te He ae he he ate te ate he ate he ate he te ate he ate oe Hee ate ae ate te He te ate oh ate he te he he ate he ate te ate he ae he ah 3c 
The following facts are now true: 
fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison 1s looked at, centerline tank is looked at, 
wing transfer pressure is ovrd trans, cb refuel probe is pushed, 
refuel probe is extended, and cb fuel boost pump is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|; look_at external_tank. 
OK. 


54 


ate 2k ok ok fe ake ok ok oe ake oe ke 2k oe fe ake oe af oe oe ote ake ke ate ae ake ake oe ake af oe te ake ke ake ake ke fe fe af ake ke fe ake fe 2h ke ke 24 2k 


The following facts are now true: 


external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, wing transfer pressure is ovrd trans, 
cb refuel probe is pushed, refuel probe is extended, 


and cb fuel boost pump is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(NDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: identify_problem. 
OK. 
Fuel streaming from underside of aircrft following CL jett 
1. Cockpit indications are identical to reverse transfer 
2. Fuel loss on the sector and counter: 500~700 Ibs/min 
3k oh ok ok ok ok ok ake ok oi ake ake ok oe ok ok ake ok a ake oe oe ake kee a ake oe ae ae ate ae ake ok oe ae ok ate ale ak ke ok ake ie oe ae ok ak ake ok 
The following facts are now true: 


fuel streaming underside is problem, problem is identified, 


external tank 1s looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, centertank jettison is looked at, 
centerline tank is looked at, wing transfer pressure is ovrd trans, 
cb refuel probe is pushed, refuel probe is extended, 


and cb fuel boost pump is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH, POSITION) 
|: set wing transfer_pressure normal. 
OK. 


a 3h 3h ah 3 ke oe ae ai ae 3k ok oe 3k oie oe ae oe a ake ak ae ae oe fe ake ke ok ae ok oie ae ake ae ake ake ok ok ake ok ak ake ok ak ok ok ok ok ake ok 


The following facts are now true: 


wing transfer pressure is nonnal, fuel streaming underside is problem, 


problem is identified, extemal tank is looked at, 
fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 


55 


a es = = 


cb refuel probe is pushed, refuel probe is extended, 
and cb fuel boost pump is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(NDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set cb_refuel_probe pulled. 
OK. 


ake ake he ake ake A ok Ae ke ate ake ke he ae ake ake ake i ate ake aR ake ake aR ate ake ake oe ake ah ake ake ake aR ake a aie ake i ake ake ae ate ke ate ake ake ok 


The following facts are now true: 


cb refuel probe is pulled, wing transfer pressure is normal, 
fuel streaming underside is problem, problem is identified, 
external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, | centertank jettison is looked at, 
centerline tank is looked at, refuel probe is extended, 


and cb fuel boost pump is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(NDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set refuel_probe refuel. 
OK. 
de ae He oe ah eke ate ie ke ae ie he oe ie oe oe ke oe oe ake a oe ae aie ake oe oie ake ake ake i ak ke ai ake aie oe ake ak oe ok a oe ie oo 2c 
The following facts are now true: 
refuel probe is refuel, cb refuel probe is pulled, 
wing transfer pressure is normal, fuel streaming underside is problem, 
problem is identified, external tank is looked at, 
fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 
and cb fuel boost pump is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(NDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set cb_fuel_boost_pump pulled. 
OK. 
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He he oe he oe he ee he oe he ote 2 oe ee ake ee hee oe oe oe ake fe fe ae fe ae ake ale ake ake ke ode ote ote ak oe ake ake oe ote ake ake ote oe ok ok 


The following facts are now true: 
cb fuel boost pump is pulled, refuel probe is refuel, 
cb refuel probe is pulled, wing transfer pressure is normal, 
fuel streaming underside is problem, problem is identified, 
external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, centertank jettison is looked at, 
and centerline tank is looked at. 
What operator do you choose? 

For example 

type look_at INDICATOR for looked_at((NDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: terminate_problem. 
OK. 
Full list of your actions: 


look_at centerline_tank, look_at centertank_jettison, 
look_at fuel_quantity_sector, look_at fuel_quantity_counter, 
look_at extemal_tank, identify_problem, 
wing_transfer_pressure to normal, cb_refuel_probe to pulled, 
refuel_probe to refuel, cb_fuel_boost_pump to pulled, 


and terminate_problem 

yes 

| ?- statistics. 

atom space: 96K (in use: 35940, max. used: 35940) 
aux. Stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 2468) 

heap: LOOOK (in use: 119428, max. used: 177800) 
global stack: 1900K (in use: 0, max. used: 249788) 
local stack: 1000K (in use: 300, max. used: 22780) 
Runtime: 48.77 sec. 

yes 

| ?- halt. 

[ Prolog execution halted J 
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F. WING FUEL LEAK 


C-Prolog version 1.5 
| ?- [expert,tutor]. 
expert consulted 19672 bytes 2.85 sec. 
tutor consulted 38916 bytes 4.25 sec. 
yes 
| ?- leaking. 
! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM ! 
You are the air commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 

Your objectives: 
problem is identified and problem is terminated. 
Wait a moment while I analyze the problem thoroughly. 
Type h for help. 
ie He ah af 2 2 a ae ae a 2 a a 2 ie a ah a ak ak ae a 2 ak a a 2 a a 2 a a 2h ak ae a a a 2h ae a 2c ak 2K ak ak kK 
The following facts are now true: 
refuel probe is retracted. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at centerline_tank. 
OK. 
2 a a 2h ah a a a ak 2 ak a a ak 2 ak oe a ak a ah ak ak a a ae ak ak ak ake ae 2k a a a ake ak ak a a a ak 2k a ak ak ak 2k ok ok 
The following facts are now true: 
centerline tank 1s looked at and refuel probe is retracted. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at centertank_jettison. 
OK. 
Ae A oe ok a a ak 2k 2h oe a a 2 2 2k a a a 2h at ak a ak ak ak ak ah ae a a a ake ah ah ak ak a a ak ake ak ak a i ate ae ak 
The following facts are now true: 
centertank jettison is looked at, centerline tank is looked at, 
and refuel probe is retracted. 
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What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at fuel_ quantity counter. 
Not the operator I would choose, but let us try tt. 
Me he ae he ake ate ake ate ate ae ake ate ake ake ae ae ake ake ake ake ate ake ae ake ake ake ae ah ake ake af ate ake ae ate ale ae ae ate ake ae ate ake ake ake ate ake ae ak ae 
The following facts are now true: 
fuel quantity counter is looked at, _ centertank jettison is looked at, 
centerline tank is looked at, and refuel probe is retracted. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel_quantity_sector. 
OK. 
Me He He he ae he ake ae ate ake ate ate ate ae ake ake ae oe ae ake ae ake ake ake ake ate ate ate ake ake ake ae ate ate ate ae ate ate ae ate ate ate ate ake ake oie ate ake ake ake 
The following facts are now true: 
fuel quantity sector 1s looked at, —s fuel quantity counter is looked at, 
centertank jettison is looked at, centerline tank is looked at, 
and refuel probe ts retracted. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at external_tank. 
OK. 
Mee 2c ate ai ake ae ae ake ake i ae ate ae aie ake ake ake ake ake ake ae ake ake ake ade ate ake ake ake ae ate ake ake ate ake ake ake ate ake ake ake ake ake ake ake ake ake ake akc 
The following facts are now true: 
external tank is looked at, fuel quantity sector is looked at, 
fuel quantity counter is looked at, — centertank jettison is looked at, 
centerline tank is looked at, and refuel probe is retracted. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 


a9 


|: identify_problem. 
OK. 
Wing fuel leak problem caused by: 
Mechanical problem 

ate oe ake ah ofc ake ah ate ate 2h ake ake 2 ie ake ake ake ate ake ake ae ake ate oe ake ake of kc ae oe oe ae oe eae ace fe ae ake ae ate oe ac ae oe ic 2c ok 
The following facts are now true: 
wing fuel leaking is problem, problem 1s identified, 
external tank is looked at, fuel quantity sector is looked at, 
fuel quantity counter is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, and refuel probe is retracted. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: disengage afterburner. 
OK. 


2 he ie ie ake ie he aie he aie a oe ake aie fe ae ah ah 2k ae ake ae ak ake ake ate ie ake ae ake ok ae aie aie ak ke ake ake aie ake ake aie ake ake ak ok ake 2c 2c 2k 


The following facts are now true: 


disengage 1s afterburner, wing fuel leaking is problem, 
problem is identified, external tank is looked at, 

fuel quantity sector is looked at, = fuel quantity counter is looked at, 
centertank jettison is looked at, centerline tank is looked at, 


and refuel probe is retracted. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: fly below_threehundredskts. 
OK. 


FR IO IG III GG IG I ak kak kk ak kok at ake ake ake ake ake ak ake ak 


The following facts are now true: 


below tlreehundredskts is flight, disengage is afterburner, 
wing fuel leaking is problem, problem is identified, 
external tank is looked at, fuel quantity sector is looked at, 


fuel quantity counter is looked at, — centertank jettison is looked at, 
centerline tank is looked at, and refuel probe is retracted. 
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What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set refuel_ probe refuel. 
OK. 


He he ake Ke ae Re oe 2h 2k eae 2h ae ote ae ake ade ake ate ate ake ate ae ke ae ae ake ate ae ok ae oi ae ake aie ic 2k ate ae oi ae ote ae ae af ate ae ok ic ae 


The following facts are now true: 


refuel probe is refuel, below threehundredskts is flight, 
disengage is afterburner, wing fuel leaking is problem, 
problem 1s identified, external tank 1s looked at, 

fue] quantity sector is looked at, fuel quantity counter is looked at, 


centertank jettison is looked at, and centerline tank is looked at. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: land as_soon_as_practicable. 
OK. 
FEO GIGI III IIGISIG GIGI III IK 
The following facts are now true: 
as soon as practicable is landing, refuel probe is refuel, 


below threehundredskts 1s flight, disengage is afterburner, 
wing fuel leaking is problem, problem is identified, 
extemal tank is looked at, fuel quantity sector is looked at, 


fuel quantity counter is looked at, | centertank jettison is looked at, 
and centerline tank is looked at. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: land arrested. 
OK. 
Me He he te ie ate ate he ie ote ate ote ake ake ae ae ae she ae ate ah ate he he ae ote ate ae ae ae ae ae ade ah he te ae she ate ae 2c ate ae ake ate ae ae he ae he 
The following facts are now true: 


arreSted is landing, as soon as practicable is landing, 
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refuel probe is refuel, below threehundredskts is flight, 
disengage is afterbumer, wing fuel leaking is problem, 
problem is identified, external tank is looked at, 
fuel quantity sector is looked at, fuel quantity counter is looked at, 
centertank jettison is looked at, and centerline tank is looked at. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: terminate_problem. 
OK. 
Full list of your actions: 


look_at centerline_tank, look_at centertank_jettison, 
look_at fuel_quantity_counter, look_at fuel_quantity_sector, 
look_at extemal_tank, identify_problem, 

disengage afterburner, fly below_threehundredskts, 
refuel_probe to refuel, land as_soon_as_practicable, 
land arrested, and terminate_problein 

yes 


| ?- statistics. 

atom space: 96K (in use: 35828, max. used: 35828) 
aux. stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 2500) 

heap: 1000K (in use: 121028, max. used: 175880) 
global stack: 1900K (in use: 0, max. used: 221260) 
local stack: LOOOK (in use: 300, max. used: 20284) 
Runtime: 51.15 sec. 

yes 

| ?- halt. 

[ Prolog execution halted J 
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G. NORMAL SITUATION 


C-Prolog version 1.5 

| ?- [expert,tutor]. 

expert consulted 19672 bytes 2.81667 sec. 

tutor consulted 38916 bytes 4.21667 sec. 

yes 

| ?- normal. 

! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM ! 
You are the air commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 

Your objectives: 

problem is identified and problem is terminated. 

Wait a moment while I analyze the problem thoroughly. 

Type h for help. 


He te ate he ate He fe ae ahe ofe fe ahe ae af ofeach fe ae ae ate fe ae ate fe ae ae ae ae ae ae fe ae ahe fe ae afe ae afe ae ate afc ate 


The following facts are now true: 


internal wing transfer is normal, external transfer is off, 

external wing transfer is outbd, wing transfer pressure is normal, 
wing dump is normal, refuel selection is int only, 
landing gear is up, ram air turbine is retracted, 

boost pump left is normal, boost pump right is normal, 


external store jettison center is norm, extemal store jettision wing is norm, 
generators is on, refuel probe is retracted, 
cb external wing control 1s pushed, — cb internal wing transfer is pushed, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pushed, —_cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pulled, 
cb fuel boost pump 1s pushed, and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
I: look_at centerline_tank. 
OK. 


ate fe fe fe fe aie fe fe ae fe fe ote fe fe oe fe ae ote ofe ake fe fe fe ae ae ake ate ate ae ate ae ae ae oe aie ate ate ae ae ae ae ae oe ae ae ake ate ote ate 2c 


The following facts are now true: 
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centerline tank is looked at, internal wing transfer is normal, 


external transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is nonnal, wing dump is normal, 

refuel selection is int only, landing gear is up, 

ram air turbine 1s retracted, boost pump left 1s normal, 

boost pump right is normal, external store jettison center 1s norm, 


external store jettision wing is norm, generators ts on, 
refuel probe is retracted, cb external wing control is pushed, 
cb internal wing transfer is pushed, _ cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump 1s pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at centertank_jettison. 
OK. 


He He He ae ate Cote Re Ke afc ae ate he 2 aie afc ote ake afc aie te ake ate ae CR aR a CR ke a ROR ROR RC CRC oR ate te RO at HC 3c 2 


The following facts are now true: 


centertank jettison is looked at, centerline tank is looked at, 
intemal wing transfer is normal, external transfer 1s off, 

external wing transfer is outbd, wing transfer pressure is nomnal, 
wing dump is normal, refuel selection is int only, 
landing gear is up, rain air turbine is retracted, 

boost pump left is normal, boost pump right is normal, 


external store jettison center 1s norm, extemal store jettision wing is norm, 
generators is on, refuel probe is retracted, 

cb external wing control is pushed, — cb internal wing transfer is pushed, 

cb fuel valve power is pushed, cb left fuel valve power is pushed, 

cb wing transfer control is pushed, _cb left boost pump control is pushed, 

cb boost pump emer control is pushed, cb right boost pump control is pulled, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 

What operator do you choose? 

For example: 


type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at fuel_ quantity sector. 
OK. 


ae fe fe fe he hee he he he he he ke ake he he he fe fe fe fe fe ae fe he oe he oe oe oe ate ate he fe te ote ote fe ate fe ete ote te te fe te ote fe oe 


The following facts are now true: 


fuel quantity sector is looked at, | centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer is normal, 
extemal transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is normal, wing dump is normal, 

refuel selection is int only, landing gear is up, 

ram air turbine is retracted, boost pump left is normal, 

boost pump right is normal, external store jettison center is norm, 


external store jettision wing is norm, generators is on, 
refuel probe is retracted, cb external wing control is pushed, 
cb internal wing transfer is pushed, __cb fuel valve power is pushed, 
cb left fuel valve power is pushed, —_cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe 1s pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH, POSITION) 
|: look_at fuel_quantity_counter. 
OK. 
2 ate ake ak ake ie ake ake ake ake ae ake ake ake ake ae afc ake ae afc akc afc ake ake afc fe af ae ake af ake af afc ae af ae ate ae ae ake ake ake ake ok ete ake ake akc ak 
The following facts are now tme: 


fuel quantity counter 1s looked at, fuel quantity sector is looked at, 


centertank jettison is looked at, centerline tank is looked at, 
internal wing transfer is normal, external transfer is off, 

extemal wing transfer is outbd, wing transfer pressure is normal, 
wing dump is normal, refuel selection is int only, 
Janding gear is up, ram air turbine is retracted, 

boost pump left is normal, boost pump right is normal, 


external store jettison center is norm, external store jettision wing is nonn, 
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generators is on, refuel probe is retracted, 
cb external wing control is pushed, _cb internal wing transfer is pushed, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pushed, _cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pulled, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at external_tank. 
OK. 


2 2k ee he oe 2h 2 fe oe 2h 2 ote fe ak 2h oe 2 fe 2 2k 2k ae ake fe 2k ate ke 2k fe 2k ate 2k ae ake ate fe 2k ok ake oe 2 ok 2k ok 2k 2k ate ake 


The following facts are now true: 


extemal tank 1s looked at, fuel quantity counter is looked at, 

fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer is normal, 
external transfer 1s off, extemal wing transfer is outbd, 

wing transfer pressure is normal, wing dump is normal, 

refuel selection is int only, landing gear is up, 

ram air turbine ts retracted, boost pump left is normal, 

boost pump right is normal, external store jettison center is norm, 


external store jettision wing is norm, generators is on, 
refuel probe is retracted, cb extemal wing control is pushed, 
cb intemal wing transfer is pushed, __cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: identify_problem. 
OK. 


There is no problem. 
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Full list of your actions: 


look_at centerlime_tank, look_at centertank_jettison, 
look_at fuel_quantity_sector, look_at fuel_quantity_counter, 
look_at extemmal_tank, and identify_problem 

yes 


| ?- statistics. 

atom space: 96K (in use: 37040, max. used: 37040) 
aux. stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 1916) 

heap: 1000K (in use: 117756, max. used: 148816) 
global stack: 1900K (in use: 0, max. used: 378224) 
local stack: 1000K (in use: 300, max. used: 23344) 
Runtime: 53.28 sec. 

yes 

| ?- halt. 
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H. GENERAL CASE 


C-Prolog version 1.5 

| ?- [expert,tutor]. 

expert consulted 19672 bytes 2.83333 sec. 

tutor consulted 38916 bytes 4.26667 sec. 

yes 

| ?- general. 

! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM |! 
You are the alr commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 

Your objectives: 

problem is identified and problem is terminated. 

Wait a moment while I analyze the problem thoroughly. 

Type h for help. 


3H he 2H he he he abe ake ake ah ah ah aie ake ake ake ake ake abe abe abe ake ake ae 2c aie ate ake ie ake ae ake ake ake aie ake ake ah aie ake aie aie aie ake ake abe aie 2h 2h 2 


The following facts are now true: 


internal wing transfer is normal, external transfer is off, 

external wing transfer is outbd, wing transfer pressure is normal, 
wing dump is normal, refuel selection is int only, 
landing gear is up, ram air turbine is retracted, 

boost pump left is normal, boost pump right 1s normal, 


external store jettison Center is norm, extemal store jettision wing is norm, 
generators is on, refuel probe is retracted, 
cb external wing control is pushed, __ cb internal wing transfer is pushed, 
cb fuel valve power is pushed, Cb left fuel valve power is pushed, 
cb wing transfer control is pushed, cb left boost pump control 1s pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pulled, 
cb fuel boost pump 1s pushed, and cb refuel probe 1s pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look _at centerline_tank. 
OK. 


He He He ote ote she He ake a ake ake ak he ot ake 2 ac ak ate ke ke ke ake ake ak ote ote ake ate ote ote ake ate ate ate she ake ake ak a ae ake ake ake ake ake ok ok ake 


The following facts are now true: 
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centerline tank is looked at, internal wing transfer is normal, 


external transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is normal, wing dump ts normal, 

refuel selection is int only, landing gear ts up, 

ram air turbine is retracted, boost pump left is normal, 

boost pump right 1s normal, external store jettison center is norm, 


external store jettision wing is norm, generators is on, 
refuel probe is retracted, cb external wing control is pushed, 
cb internal wing transfer is pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, —_cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at centertank_jettison. 
OK. 


SOO ICI IGOR I GIGI I I GI I kr i kk kk ke ake ake ak ak ake ak ake ake ake ake ake ake ake ake ak ake ake ake ake ke ake ak 


The following facts are now true: 


centertank jettison is looked at, centerline tank 1s looked at, 
internal wing transfer is normal, external transfer is off, 

external wing transfer is outbd, wing transfer pressure is normal, 
wing dump is normal, refuel selection is int only, 
landing gear is up, ram air turbine is retracted, 

boost pump left is normal, boost pump right is normal, 


external store jettison center 1s norm, external store jettision wing is nonn, 
generators is on, refuel probe is retracted, 
cb external wing control is pushed, cb internal wing transfer is pushed, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pushed, cb left boost pump control 1s pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pulled, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
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type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: look_at fuel_quantity_sector. 
OK. 
Me He HH HR RIOR ROHR RRR ate tte te te ote i te oe ate oe te oe oe oe oe oe ote te te te oe oe oe oe ae ae ai 
The following facts are now true: 
fuel quantity sector is looked at, — centertank jettison is looked at, 


centerline tank is looked at, internal wing transfer is normal, 
external transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is normal, wing dump is normal, 

refuel selection is int only, landing gear is up, 

ram air turbine is retracted, boost pump left is normal, 

boost pump right is normal, extemal store jettison center is norm, 


extemal store jettision wing is norm, generators is on, 
refuel probe is retracted, cb external wing control is pushed, 
cb intemal wing transfer is pushed, _ cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control 1s pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(NDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel_quantity_counter. 
OK. 
Me He He Fe He He He he He hee he te he te te HR a te te Re RH RCH eR HC HO HCH oe tH ote oie eK 
The following facts are now true: 
fuel quantity counter is looked at, fuel quantity sector is looked at, 


centertank jettison is looked at, centerline tank is looked at, 
internal wing transfer is normal, external transfer 1s off, 

external wing transfer is outbd, wing transfer pressure is normal, 
wing dump is nonnal, refuel selection is int only, 
landing gear is up, ram air turbine is retracted, 

boost pump left is normal, boost pump right is normal, 


external store jettison center is norm, extemal store jettision wing 1s norm, 
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generators is on, refuel probe is retracted, 
cb external wing control is pushed, __ cb internal wing transfer is pushed, 
cb fuel valve power 1s pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pushed, — cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control 1s pulled, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at external_ tank. 
OK. 


He oe oe 3 a ote ake oe ke af ok ake oe fe a oe af a ade ae oe ok ake af ate fe af ake ate ate ae ake ake of ote ate ake ate ake fe ake ate ake af afc ake fe ak ae ake 


The following facts are now true: 


extemal tank is looked at, fuel quantity counter is looked at, 

fuel quantity sector is looked at, — centertank jettison is looked at, 
centerline tank 1s looked at, internal wing transfer is normal, 
external transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is normal, wing dump is nonnal, 

refuel selection is int only, landing gear is up, 

rami air turbine is retracted, boost pump left is normal, 

boost pump right is normal, external store jettison center is nonn, 


external store jettision wing 1S norm, generators is on, 
refuel probe is retracted, cb external wing control is pushed, 
cb intemal wing transfer is pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: identify_problem. 
OK. 
Reverse transfer of fuselage fuel caused by: 
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A failed open defuel valve 


FOCI ICG III I GI ICICI 


The following facts are now true: 


reverse transfer fail is problem, problem is identified, 

external tank is looked at, fuel quantity counter is looked at, 

fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer is normal, 
extemal transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is normal, wing dump is normal, 

refuel selection is int only, landing gear is up, 

ram air turbine is retracted, boost pump left is normal, 

boost pump right is normal, extemal store jettison center is nomm, 


external store jettision wing is norm, generators is on, 
refuel probe is retracted, cb external wing control is pushed, 
cb intemal wing transfer is pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe 1s pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set ram_air_turbine extended. 
OK. 


He ate ote oe oh ak RR RRR Rt tt RRR RRO RRO RIOR ROO ROR FRR IORI Ik tote ak 


The following facts are now true: 


ram air turbine is extended, reverse transfer fail is problem, 
problem is identified, external tank is looked at, 

fuel quantity counter 1s looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 

internal wing transfer is normal, extemal transfer 1s off, 

extemal wing transfer is outbd, wing transfer pressure is normal, 
wing dump is normal, refuel selection is int only, 

landing gear is up, boost pump left is normal, 

boost pump right is normal, external store jettison center is norm, 
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external store jettision wing 1s norm, generators is on, 
refuel probe is retracted, cb external wing control is pushed, 
cb internal wing transfer is pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control 1s pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
I: set generators off. 
OK. 


Me He He He he he he hee oh he Be HC ake eae ate oe ate ate ke ae ate abe ake ate ake ake ate fe afe ate ate abe ate abe afe ate ake ate abe ake ke ake ake ake ake ake ake af 


The following facts are now true: 


generators is off, ram air turbine is extended, 

reverse transfer fail is problem, problem is identified, 

extemal tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer 1s normal, 
external transfer is off, extemal wing transfer is outbd, 
wing transfer pressure is normal, wing dump is normal, 

refuel selection is int only, landing gear is up, 

boost pump left is normal, boost pump right is normal, 


external store jettison center is norm, extemal store jettision wing is nonn, 
refuel probe is retracted, cb external wing control is pushed, 
cb internal wing transfer 1s pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, — cb wing transfer control is pushed, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(NDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|; set cb_left_boost_pump_control pulled. 


Fis. 


OK. 


ie ke ake ok ke ake ak ok ake te ok ook oe ae ate ok ake ae a ake ae a ae oe ake eae he ake ake he ae oe ke ae ae oe ake a ae oe ke ae ae oe ete tc a 


The following facts are now true: 
cb left boost pump control is pulled, generators 1s off, 


ram air turbine is extended, reverse transfer fail is problem, 
problem is identified, external tank is looked at, 

fuel quantity counter is looked at, _ fuel quantity sector is looked at, 
centertank jettison 1s looked at, centerline tank is looked at, 

internal wing transfer is normal, external transfer is off, 

external wing transfer is outbd, wing transfer pressure is normal, 
wing dump is normal, refuel selection is int only, 

landing gear is up, boost pump left is normal, 

boost pump right is normal, extemal store jettison center is nonn, 


external store jettision wing is norm, refuel probe is retracted, 
cb external wing control is pushed, cb internal wing transfer 1s pushed, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
|: set cb_boost_ pump emer control pulled. 
OK. 
PTILEPeLrrr eer rer ree rere trreerrrr torre ire e tere tn. 
The following facts are now true: 
cb boost pump emer control is pulled, cb left boost pump control is pulled, 


generators is off, ram air turbine is extended, 

reverse transfer fail is problem, problem 1s identified, 

external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer is normal, 
external transfer is off, external wing transfer is outbd, 
wing transfer pressure is normal, wing dump is normal, 

refuel selection is int only, landing gear is up, 
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boost pump left 1s normal, boost pump right is normal, 
extemal store jettison center is norm, extemal store jettision wing is nonn, 
refuel probe is retracted, cb external wing control 1s pushed, 
cb intemal wing transfer is pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set generators on. 
OK. 


ate ae ate ake of ate he ake oh ake ake 3k ate ake ake ake ate ate ae oe ake ake ake ake ae ake ake ake ake ake ake ate ake ake ake ake ae ate ake ake ate ah ake ake ake ake ate ate ae ak 


The following facts are now true: 


generators 1s on, cb boost pump emer control is pulled, 
cb left boost pump control is pulled, ram air turbine is extended, 
reverse transfer fail is problem, problem is identified, 

external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, = centertank jettison is looked at, 
centerline tank 1s looked at, intemal wing transfer is normal, 
external transfer is off, extemal wing transfer is outbd, 
wing transfer pressure is normal, wing dump is normal, 

refuel selection is int only, landing gear is up, 

boost pump left is normal, boost pump right is normal, 
external store jettison center is norm, external store jettision wing is norm, 
refuel probe is retracted, cb external wing control is pushed, 


cb internal wing transfer is pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, — cb wing transfer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(—INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|; set ram_air_turbine retracted. 
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OK. 


24 he ote te ok ake ate ake te ah ake oe he fe te oe te ke oe ae oe ake ate oie te ake ke fe ake ake ote oe ote he oe te ake he ote ake fe oe ie ok ie ok ok oe 2k 


The following facts are now true: 


rain air turbine ts retracted, generators is on, 

cb boost pump emer control is pulled, cb left boost pump control ts pulled, 
reverse transfer fail is problem, problem is identified, 

external tank is looked at, fuel quantity counter is looked at, 

fuel quantity sector is looked at, __ centertank jettison is looked at, 
centerline tank ts looked at, internal wing transfer is normal, 

external transfer is off, external wing transfer is outbd, 

wing transfer pressure is normal, wing dump its normal, 

refuel selection is int only, landing gear is up, 

boost pump left 1s normal, boost pump right is normal, 


external store jettison center is norm, external store jettision wing is norm, 
refuel probe is retracted, cb external wing control is pushed, 
cb internal wing transfer is pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, | cb wing transfer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
I: set wing transfer_pressure ovrd_trans. 
OK. 
Me He he Re He oe ie fe te Re ate ate oe ate ate oe aie ote ate ate ake af of ake ate ie ake ote ake ake oe fe of ake of ak ake ote ak fe ate ote ate of oe ote ae oie ote 2k 
The following facts are now true: 


wing transfer pressure is ovrd trans, ram air turbine is retracted, 


generators 1s on, cb boost pump emer control 1s pulled, 
cb left boost pump control is pulled, reverse transfer fail is problem, 
problem is identified, extemal tank is looked at, 

fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 
internal wing transfer is normal, external transfer 1s off, 

external wing transfer is outbd, wing dump is nonnal, 

refuel selection 1s int only, landing gear is up, 
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boost pump left is normal, boost pump right is normal, 
external store jettison center is norm, external store jettision wing is norm, 
refuel probe is retracted, cb external wing control is pushed, 
cb internal wing transfer is pushed, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pushed, 
cb right boost pump control is pulled, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. ) 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: terminate_problem. 
OK. 


Full list of your actions: 


look_at centerline_tank, look_at centertank_jettison, 
look_at fuel_quantity_sector, look_at fuel_quantity_counter, 
look_at extemnal_ tank, identify_problem, 
ram_air_turbine to extended, generators to off, 


cb_left_boost_pump_control to pulled, cb_boost_pump_emer_control to pulled, 
generators to on, ram_air_turbine to retracted, 
wing_transfer_pressure to ovrd_trans,and terminate_problem 
yes 

| ?- statistics. 

atom space: 96K (in use: 37204, max. used: 37204) 

aux. stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 3096) 

heap: 1000K (in use: 193916, max. used: 276376) 

global stack: 1900K (in use: 0, max. used: 1042716) 

local stack: [000K (in use: 300, max. used: 42304) 

Runtime: 188.20 sec. 

yes 

| ?- halt. 

[ Prolog execution halted ] 
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I. RANDOM SELECTING CASE 


C-Prolog version 1.5 

| ?- [expert,tutor]. 

expert consulted 19672 bytes 2.86667 sec. 

tutor consulted 38916 bytes 4.28333 sec. 

yes 

| ?- random. 

! WELCOME TO PILOT EMERGENCY TUTORING SYSTEM ! 
You are the air commander on a F-4E fighter. 
Fuel system malfunction occured and you have to fix the problem. 

Your objectives: 

problem is identified and problem is terminated. 

Wait a moment while [ analyze the problem thoroughly. 

Type h for help. 

Me he oe eK a ake ah oie kK ok ate oe ae ake ake ake ake oe ake oe oe ake ak ok ok ake oie ak ok aK ok ok ate ok ok ak ake oe ak ake ok ak ak aie ak ok 2k ak 

The following facts are now true: 

internal wing transfer is stop trans, external transfer is off, 


extemal wing transfer is outbd, wing transfer pressure is ovrd trans, 
refuel selection is all tanks, rain air turbine is retracted, 

boost pump left is check, boost pump right 1s normal, 
generators is on, refuel probe is retracted, 


cb extemal wing control is pulled, cb internal wing transfer is pulled, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pulled, — cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pushed, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at centerline_tank. 
OK. 
FO OR OK FRO Fk FIG IGG IO IO IORI GIR GR I kk 
The following facts are now true: 
centerline tank is looked at, internal wing transfer is stop trans, 
extemal transfer is off, extemal wing transfer is outbd, 
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wing transfer pressure is ovrd trans, refuel selection is all tanks, 


ram air turbine is retracted, boost pump left is check, 
boost pump right is normal, generators is On, 
refuel probe is retracted, cb external wing control is pulled, 


cb internal wing transfer is pulled, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pulled, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pushed, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
I: look_at centertank_ jettison. 
OK. 


eK ae i ae ae 3c aie ie ie 3c ae ie fe ae ae ahah oe ae afc ate aie afc af ke ae ae eke ae ae ae oe ae aie ate ake ate ake ake oe ac aie ae aie ake 2 


The following facts are now true: 


centertank jettison is looked at, centerline tank is looked at, 

internal wing transfer is stop trans, external transfer is off, 

extemal wing transfer is outbd, wing transfer pressure is ovrd trans, 
refuel selection ts all tanks, ram air turbine is retracted, 

boost pump left is check, boost pump right ts normal, 
generators Is on, refuel probe ts retracted, 


cb external wing control is pulled, cb internal wing transfer 1s pulled, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pulled, —_cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pushed, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel_quantity sector. 
OK. 


26 ake ake aie ah aie ae oe ake aie ke ae ae ake ae ake ake afc ake ie ake ake ae ake ae ake ate ake ate ake ake ake ake ake ake ae ake ate ake ake ake ake ke ake ake ake ak ok 


The following facts are now true: 


oi 


fuel quantity sector is looked at, — centertank jettison is looked at, 


centerline tank is looked at, internal wing transfer is stop trans, 
external transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is ovrd trans, refuel selection is all tanks, 
ram air turbine is retracted, boost pump left is check, 

boost pump right is normal, generators is on, 

refuel probe is retracted, cb external wing control is pulled, 


cb internal wing transfer is pulled, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, | cb wing transfer control is pulled, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pushed, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(NDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: look_at fuel_quantity_counter. 
OK. 
ate ate fe te ake he ate ake he afc ake fe ke ake afe af ake afe ake ake ake fe ake afe afe ate fe afe ate fe ate ake ake ate ake ate afe ate ake he ate ake Sic ate ake afe ake ake afe 2k 
The following facts are now true: 


fuel quantity counter is looked at, fuel quantity sector is looked at, 


centertank jettison is looked at, centerline tank is looked at, 

internal wing transfer is stop trans, extemal transfer is off, 

external wing transfer is outbd, wing transfer pressure is ovrd trans, 
refuel selection is all tanks, ram air turbine is retracted, 

boost pump left 1s check, boost pump right is normal, 
generators Is on, refuel probe is retracted, 

cb external wing control is pulled, cb internal wing transfer is pulled, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 


cb wing transfer control is pulled, —_cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pushed, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(NDICATOR) 
type set SWITCH POSITION for status(S WITCH,POSITION) 
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|: look_at external_tank. 
OK. 


ae afc af ake fe fe fe ke fe afe ake fe ake ke ke ake ate ate ae ate ake ate ae ate 3h fe ake afc ate ate ake ate ake ate ate ate ate ake ate ate ate ate ake afe ate ate ate ate afc afc 


The following facts are now true: 


extemal tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer is stop trans, 
external transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is ovrd trans, refuel selection is all tanks, 
ram air turbine is retracted, boost pump left is check, 

boost pump right is normal, generators Is on, 

refuel probe is retracted, cb external wing control is pulled, 


cb intemal wing transfer is pulled, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pulled, 
Cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pushed, cb fuel boost pump 1s pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: identify_problem. 
OK. 
Wing fuel leak problem caused by: 

Mechanical problem 


Me CR he Ae ae ate ake ake ake ake ake ake ae fe ake af afc af aie ake ae ake fe fe ake fe ate ate ate afc afc ate ate ate ate ae fe fe fe ate ate ate ae ate ae ake af 2c ak 


The following facts are now true: 


wing fuel leaking is problem, problem is identified, 

external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer is stop trans, 
external transfer is off, extemal wing transfer is outbd, 

wing transfer pressure 1s ovrd trans, refuel selection is all tanks, 
rain air turbine is retracted, boost pump left is check, 

boost pump right is normal, generators is on, 

refuel probe is retracted, cb external wing control is pulled, 
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cb internal wing transfer is pulled, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, —__cb wing transfer control 1s pulled, 
cb left boost pump control is pushed, cb boost pump emer control 1s pushed, 
cb right boost pump control is pushed, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: disengage afterburner. 
OK. 


fe Se fe fe fe he he Ke fe ie fe he ie fe fe 2h oe fe fe of oie of of fe fe ake ake ke fe ate ate af ae he ae ae hehe ake fe af ae ae ae ae ae ae ae 


The following facts are now true: 


disengage is afterburner, wing fuel leaking is problem, 
problem is identified, external tank is looked at, 

fuel quantity counter is looked at, _ fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank is looked at, 

internal wing transfer is stop trans, extemal transfer 1s off, 

external wing transfer is outbd, wing transfer pressure is ovrd trans, 
refuel selection is all tanks, ram a turbine is retracted, 

boost pump left is check, boost pump right is normal, 
generators is on, refuel probe 1s retracted, 


cb external wing control is pulled, —_cb internal wing transfer is pulled, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pulled, — cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pushed, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: fly below_threehundredskts. 
OK. 
He He he he Se he he he he he fe She ie he he he he fe fe fe 2 he oe he ae ake ae ae fe ah ah oh ae fe ae ae ake ah ae oe oe oe ak ae ake oie oe oe ie ke 
The following facts are now true: 
below threehundredskts is flight, disengage is afterburner, 
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wing fuel leaking is problem, problem is identified, 


external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, —_ centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer is stop trans, 
extemal transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is ovrd trans, refuel selection is all tanks, 
ram air turbine 1s retracted, boost pump left is check, 

boost pump right is normal, generators 1s on, 

refuel probe is retracted, cb external wing control is pulled, 


cb intemal wing transfer is pulled, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, — cb wing transfer control is pulled, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pushed, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(SWITCH,POSITION) 
|: set refuel_probe refuel. 
OK. 


2 2 2k ie ae aie i 2 oie ai ai 2 ake 2k ake i i 2k ae a ai 2 akc ai 2 2 2k aie ae a 2k ac akc ai 2 akc ai aie akc akc ake a 2k 2k aie a ai 2k akc 2k 


The following facts are now true: 


refuel probe is refuel, below threehundredskts is flight, 
disengage is afterburner, wing fuel leaking is problem, 
problem is identified, external tank is looked at, 

fuel quantity counter is looked at, fuel quantity sector is looked at, 
centertank jettison is looked at, centerline tank 1s looked at, 

intemal wing transfer is stop trans, extemal transfer is off, 

extemal wing transfer is outbd, wing transfer pressure is ovrd trans, 
refuel selection is all tanks, ram air turbine is retracted, 

boost pump left 1s check, boost pump right is normal, 
generators is on, cb external wing control 1s pulled, 


cb intemal wing transfer is pulled, cb fuel valve power is pushed, 

cb left fuel valve power is pushed, cb wing transfer control is pulled, 

cb left boost pump control 1s pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pushed, cb fuel boost pump is pushed, 
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and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 
|: land as_soon_as_ practicable. 
OK. 


te AGO A tak aOR RRO IGG IGOR II IGG I IGG III IGOR ICI GOI OI IIR ote 


The following facts are now true: 


as soon as practicable is landing, _ refuel probe is refuel, 

below threehundredskts is flight, disengage is afterburner, 

wing fuel leaking is problem, problem is identified, 

external tank is looked at, fuel quantity counter is looked at, 
fuel quantity sector is looked at, | centertank jettison is looked at, 
centerline tank is looked at, internal wing transfer is stop trans, 
extemal transfer is off, extemal wing transfer is outbd, 

wing transfer pressure is ovrd trans, refuel selection is all tanks, 
ram air turbine is retracted, boost pump left is check, 

boost pump right is normal, generators ts on, 


cb extemal wing control is pulled, cb internal wing transfer is pulled, 
cb fuel valve power is pushed, cb left fuel valve power is pushed, 
cb wing transfer control is pulled, —_cb left boost pump control is pushed, 
cb boost pump emer control is pushed, cb right boost pump control is pushed, 
cb fuel boost pump is pushed, and cb refuel probe is pushed. 
What operator do you choose? 

For example: 

type look_at INDICATOR for looked_at(INDICATOR) 

type set SWITCH POSITION for status(S WITCH,POSITION) 
|: land arrested. 
OK. 


HH HCA HA HA HK HH ACK HH MH HM HH AH HH HH HOH HAH HHH HK A A HA HK He He He He He 


The following facts are now true: 


arrested is landing, as soon as practicable is landing, 

refuel probe is refuel, below threehundredskts is flight, 
disengage is afterburner, wing fuel leaking is problem, 

problem is identified, extemal tank is looked at, 
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fuel quantity counter is looked at, fuel quantity sector is looked at, 


centertank jettison is looked at, centerline tank is looked at, 

internal wing transfer is stop trans, external transfer is off, 

external wing transfer is outbd, wing transfer pressure is ovrd trans, 
refuel selection is all tanks, ram air turbine is retracted, 

boost pump left is check, boost pump right is nonnal, 
generators 1s on, cb external wing control is pulled, 


cb internal wing transfer is pulled, cb fuel valve power is pushed, 
cb left fuel valve power is pushed, cb wing transfer control is pulled, 
cb left boost pump control is pushed, cb boost pump emer control is pushed, 
cb right boost pump control is pushed, cb fuel boost pump is pushed, 
and cb refuel probe is pushed. 
What operator do you choose? 
For example: 
type look_at INDICATOR for looked_at(INDICATOR) 
type set SWITCH POSITION for status(SWITCH,POSITION) 


|: terminate_problem. 

OK. 

Full list of your actions: 

look_at centerline_tank, look_at centertank_jettison, 
look_at fuel_quantity_sector, look_at fuel_quantity_counter, 
look_at extemal_tank, identify_problem, 

disengage afterburner, fly below_threehundredskts, 
refuel_probe to refuel, land as_soon_as_practicable, 
land arrested, and terminate_problem 

yes 


| ?- statistics. 

atom space: 96K (in use: 37088, max. used: 37088) 
aux. stack: 8K (in use: 0, max. used: 600) 

trail: 64K (in use: 48, max. used: 3660) 

heap: 1O00K (in use: 148884, max. used: 208936) 
global stack: 1900K (in use: 0, max. used: 737624) 
local stack: LOOOK (in use: 300, max. used: 43472) 
Runtime: 104.13 sec. 

yes 

| ?- halt. 
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APPENDIX B 


SOURCE CODE OF EXPERT SYSTEM 


PRRRRAEEVELAT EERE EE AEA EEE REESE EEE ERE RR RAE ES AEM | 
/* Title : EXPERT */ 

/* Author: KANG, Moung-Hung */ 

/* Date : 21 May 1990 */ 

/* Description : This program provides expert knowledge of fuel system in */ 


/* 
fe 
/* 
/* 


F-4 aircraft to implement means-ends analysis. Program consists */ 
three parts; the definition of switch and switch position, the */ 

the components of means-ends analysis, and the definition of */ 
problem to send current and goal states to the tutor. */ 


/* How to run: */ 


/* 
;* 
as 
/* 
/* 
hea 
/* 
/* 
Nia 
/* 
j* 
j* 
[* 
/* 
f= 


1. Load ’expert’ and ‘tutor’ program. */ 
2. Enter the execution command to run the specific */ 
emergency, as like below. */ 
internal : internal wing fuel fails to transfer case */ 
center : centerline fuel fails to transfer case */ 
extemal : external wing fuel fails to transfer case*/ 
reverse : reverse transfer os fuselage fuel case */ 
stream : fuel streaming from underside of aircraft */ 
following center jettison case */ 
leaking : wing fuel leaking case */ 
normal : normal case */ 
general : reverse transfer of fuselage fuel using */ 
total switch states */ 
random _ : select current states by using random number */ 
3. If the user want debugflag, use ’asserta(debugflag)’ */ 


[EPRNELERER EES R ERLE ELE ELEL ELSE LELS LERLERREES EELS EDO ELE OER YER EDS / 


intro(’!| WELCOME TO PILOT EMERGENCY TUTORING SYSTEM ! 


You are the air commander on a F-4E fighter. Fuel system malfunction occured 
and you have to fix the problem..’). 
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/* Available switch positions to handle fuel system malfunction */ 
position(intemal_wing_transfer,nonnal,stop_trans). 
positiou(external_transfer,off,outbd). 
position(wing_trausfer_pressure,normal,ovrd_trans). 
position(wing_dump,normal,dump). 
position(refuel_selection,int_only,all_tanks). 
position(landing_gear,up,down). 
position(ram_air_turbine,extended retracted). 
position(boost_pump_left,check,normal). 
position(boost_pump_right,check,normal ). 
position(external_store_jettison_center,norm, jett). 
position(external_store_jettision_wing,norm, jett). 
position(generators,on,off). 
position(refuel_probe,retracted,extended,refuel). 
position(external_wing_transfer,outbd,wing,center). 
position(cb_external_wing_control,pushed,pulled). 
position(cb_internal_wing_transfer,pushed,pulled). 
position(cb_fuel_valve_power,pushed,pulled). 
position(cb_left_fuel_valve_power,pushed, pulled). 
position(cb_wing_transfer_control,pushed,pulled). 
position(cb_left_boost_pump_control,pushed,pulled). 
position(cb_right_boost_pump_control,pushed,pulled). 
position(cb_boost_pump_emer_control,pushed,pulled). 
position(cb_fuel_boost_pump,pushed, pulled). 
position(cb_refuel_probe,pushed,pulled). 


/* Available indicator values to determine the problem */ 
indication(fuel_quantity_sector,decrease,nonmal,increase). 
indication(fuel_quantity_counter,decrease,increase,severe_decrea). 
indicatiou(extemal_tank,empty,not_empty, full). 
indication(centerline_tank,empty not_empty). 
indication(centertank_jettison, jettisoned ,not_jettisoned). 
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/* Definition of the switch and indicator */ 
switch(SW):- binary_switch(S W); tri_switch(SW). 
binary_switch(SW):- position(S W,X,Y). 
tri_switch(SW):- position(SW,X,Y,Z). 


existposition(S W,X):- binary_switch(SW), 
(position(SW,X,Y); position(SW,Y,X)). 
existposition(S W,X):- tri_switch(SW), 
(position(SW,X,Y,Z); position(S W, Y,X,Z); position(SW,Y,Z,X)). 


find_opposite(SW,X,Y):- binary_switch(SW), 
(position(SW,X,Y); position(SW,Y ,X)). 


indica(IND):- binary_indica(IND); tri_indica(IND). 
binary_indica(IND):- indication(IND,X,Y). 
tri_indica(IND):- indication(IND,X,Y ,Z). 


existindication(IND,X):- binary_indica(IND), 
(indication(IND,X,Y); indication(IND, Y ,X)). 
existindication(IND,X):- tri_indica(IND), 
(indication(IND,X,Y,Z); indication(IND,Z,X,Y); indicationIND,Y ,Z,X)). 


/* Recommended operator for fuel system malfunction */ 


recommended([identified(problem)],identify_problem). 
recommended((tenninated(problem)],terminate_problem). 
recommended({flight(below_threehundredskts)],fly(below_threehundredskts)). 
recommended(|flight(disengage,afterbumer)],disengage(afterburner)). 
recommended({landing(as_soon_as_practicable)],land(as_soon_as_practicable)). 
recommended({landing(arrested)],land(arrested)). 


recommended({status(SW,X)],set(SW,X)):- switch(S W),existposition(SW,X). 
recommmended([looked_at(IND)],look_at(IND)):- indica(IND). 
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/* Precondition for internal wing fuel fails to transfer */ 

precondition(identify_problem,_, 
[looked_at(fuel_quantity_sector), 
looked_at(fuel_quantity_counter), 
looked_at(extermal_tank), 
looked_at(centerline_tank), 
looked_at(centertank_jettison)]). 


precondition(set(internal_wing_transfer,normal), 
[problem(intemal_wing_transfer_fail)], 
{identified(problem), 
Status(internal_wing_transfer,stop_trans), 
status(external_transfer,off)]). 


precondition(set(refuel_probe,retracted), 
[problem(internal_wing_transfer_fail)], 
[identified(problem), 
Sstatus(external_transfer,off), 
status(intemal_wing_transfer,normal), 
not status(refuel_probe,retracted)]). 


precondition(set(cb_intemal_wing_transfer,pushed), 
[problem(internal_wing_transfer_fail)], 
[identified(problem), 
status(cb_intemal_wing_transfer,pulled), 
status(refuel_probe,retracted), 
status(extemal_transfer,off), 
status(internal_wing_transfer,normal)]). 


precondition(set(wing_transfer_pressure,ovrd_trans), 
[problem(internal_wing_transfer_fail)], 
lidentified(problem), 
status(wing_transfer_pressure,normal), 
status(extemal_transfer,off), 


status(internal_wing_transfer,normal), 
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status(refuel_probe,retracted), 
status(cb_intemal_wing_transfer,pushed)]). 


precondition(terminate_problem, 
[problem(intemal_wing_transfer_fail)], 
[identified( problem), 
status(extemal_transfer,off), 
status(internal_wing_transfer,normal), 
status(refuel_probe,retracted), 
Status(cb_internal_wing_transfer,pushed), 
Status(wing_transfer_pressure,ovrd_trans)]). 


/* Precondition for centerline fuel fails to transfer */ 
precondition(set(cb_external_wing_control,pushed), 
[problem(centerline_transfer_fail)], [identified(problem), 
status(external_wing_transfer,center), 
status(cb_extemal_wing_control,pulled)]). 


precondition(set(cb_left_fuel_valve_power,pushed), 
[problem(centerline_transfer_fail)], 
[identified(problem), 
status(external_wing_transfer,center), 
Status(cb_extemal_wing_control,pushed), 
status(cb_left_fuel_valve_power,pulled)]). 


precondition(set(refuel_probe,retracted), 
[problem(centerline_transfer_fail)], 
[identified(problem), 
status(extemal_wing_transfer,center), 
status(cb_extemal_wing_control,pushed), 
status(cb_left_fuel_valve_power,pushed), 
not status(refuel_probe,retracted)]). 


precondition(set(wing_transfer_pressure,ovrd_trans), 


[problenx(centerline_transfer_fail)], 
[identified(problem), 
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status(external_wing_transfer,center), 
status(cb_external_wing_control,pushed), 
status(cb_left_fuel_valve_power,pushed), 
status(refuel_probe,retracted), 
status(wing_transfer_pressure ,normal)]). 


precondition(terminate_problem, 
[problem(centerline_transfer_fail)], 
[identified(problem), 
status(extemmal_wing_transfer,center), 
status(cb_external_wing_control,pushed), 
status(cb_left_fuel_valve_power,pushed), 
status(refuel_probe,retracted), 
Status(wing_transfer_pressure ovrd_trans)]). 


/* Precondition for external wing fuel fails to transfer */ 

precondition(set(cb_external_wing_control,pushed), 
[problem(external_wing_transfer_fail)], 
[identified( problem), 
status(extemal_wing_transfer,outbd), 
status(cb_external_wing_control,pulled)]). 


precondition(set(refuel_probe,retracted), 
[problem(external_wing_transfer_fail)], 
[identified( problem), 
Sstatus(external_wing_transfer,outbd), 
status(cb_external_wing_control,pushed), 
not status(refuel_probe,retracted)]). 


precondition(set(cb_fuel_valve_power,pushed), 
[problem(external_wing_transfer_fail)], 
{identified(problem), 
status(external_wing_transfer,outbd), 
status(cb_external_wing_control,pushed), 
status(refuel_probe,retracted), 
status(cb_fuel_valve_power,pulled)]). 


9] 


precondition(set(wing_transfer_pressure,ovrd_trans), 
[problem (external_wing_transfer_fail)], 
[identified( problem), 
status(external_wing_transfer,outbd), 
status(cb_external_wing_control,pushed), 
status(refuel_probe,retracted), 
status(cb_fuel_valve_power,pushed), 
Status(wing_transfer_pressure,normal)]). 


precondition(terminate_problem, 
[problem (extemal_wing_transfer_fail)], 
[identified(problem), 
status(extemal_wing_transfer,outbd), 
status(cb_external_wing_control,pushed), 
status(refuel_probe,retracted), 
status(cb_fuel_valve_power,pushed), 
Status(wing_transfer_pressure,ovrd_trans)]). 


/* Precondition for reverse transfer of fuselage fuel */ 
precondition(set( generators ,off), 
[problem(reverse_transfer_fail)], 
[identified(problem), 
status(generators,on), 
status(ram_air_turbine,extended)]). 


precondition(set(cb_wing_transfer_control,pushed), 
[problem(reverse_transfer_fail)], 
[identified(problem), 
status(cb_wing_transfer_control,pulled), 
status(ram_air_turbine,extended), 
status(generators,off)]). 


precondition(set(cb_left_boost_pump_control,pulled), 
[problem(reverse_transfer_fail)], 
[identified(problem), 
status(cb_left_boost_pump_control,pushed), 
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status(ram_air_turbine,extended), 
status(generators,off), 
status(cb_wing_transfer_control,pushed)]). 


precondition(set(cb_boost_pump_emer_control,pulled), 
[problem(reverse_transfer_fail)], 
[identified( problem), 
status(cb_boost_pump_emer_control,pushed), 
Status(ram_air_turbine,extended), 
status(generators,off), 
Status(Cb_wing_transfer_control,pushed), 
status(cb_left_boost_pump_control,pulled)}). 


precondition(set(cb_right_boost_pump_control,pulled), 
[probleni(reverse_transfer_fail)], 
[identified(problem), 
status(cb_right_boost_pump_control,pushed), 
status(ram_air_turbine,extended), 
status(generators off), 
status(cb_wing_transfer_control,pushed), 
status(cb_left_boost_pump_control,pulled), 
status(Cb_boost_pump_emer_control,pulled)]). 


precondition(set(generators,on), 
[problem(reverse_transfer_fail)], 
[identified(problem), 
status(generators,off), 
Status(ram_air_turbine,extended), 
status(cb_wing_transfer_control,pushed), 
Sstatus(cb_left_boost_pump_control,pulled), 
status(cb_boost_pump_emer_control,pulled), 
Status(cb_right_boost_pump_control,pulled)]). 


precondition(set(ram_air_turbine,retracted), 


[problem(reverse_transfer_fail)], 
[:dentifted(problem), 
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status(ram_air_turbine,extended), 
Status(generators,on), 
status(cb_wing_transfer_control,pushed), 
status(cb_right_boost_pump_control,pulled), 
status(cb_left_boost_pump_control,pulled), 
status(cb_boost_pump_emer_control,pulled)]). 


precondition(set(wing_transfer_pressure,ovrd_trans), 

[problem(reverse_transfer_fail)], 
[identified(problem), 
status(wing_transfer_pressure,normal), 
status(cb_wing_transfer_control,pushed), 
Status(cb_left_boost_pump_control,pulled), 
status(cb_boost_pump_emer_control,pulled), 
status(cb_right_boost_pump_control,pulled), 
Status(generators,on), 
Status(ram_air_turbine,retracted)]). 


precondition(terminate_problem, 
[problem(reverse_transfer_fail)], 
[identified(problem), 
status(ram_air_turbine,retracted), 
status(generators,on), 
status(cb_wing_transfer_control,pushed), 
status(cb_left_boost_pump_control,pulled), 
status(cb_boost_pump_emer_control,pulled), 
status(cb_right_boost_pump_control,pulled), 
status(wing_transfer_pressure,ovrd_trans)]). 


/* Fuel streaming from underside of aircraft following center jettision */ 
precondition(set(cb_refuel_probe,pulled), 
[problem(fuel_streaming_underside)], 
[identified(problem), 
Status(wing_transfer_pressure normal), 
status(cb_refuel_probe,pushed)]). 
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precondition(set(refuel_probe,refuel), 
[problem(fuel_streaming_underside)], 
[identified(problem), 
status(wing_transfer_pressure,normal), 
status(cb_refuel_probe,pulled), 
not status(refuel_probe,refuel)]). 


precondition(set(cb_fuel_boost_pump,pulled), 
[problem(fuel_streaming_underside)], 
[identified(problem), 
status(wing_transfer_pressure, normal), 
status(cb_refuel_probe,pulled), 
status(refuel_probe,refuel), 
status(cb_fuel_boost_pump,pushed)]). 


precondition(terminate_problem, 
[problem(fuel_streaming_underside)], 
[identified(problem), 
status(wing_transfer_pressure,normal), 
status(cb_refuel_probe,pulled), 
status(refuel_probe,refuel), 
status(cb_fuel_boost_pump,pulled)]). 


/* Precondition for Wing fuel leak */ 
precondition(disengage(afterbumer),_,{identified(problem)]). 


precondition(fly(below_threehundredskts), 
[problem(wing_fuel_leaking)], 
lidentified(problem), 
flight(disengage,afterbumer)]). 


precondition(set(refuel_probe,refuel), 
[problem(wing_fuel_leaking)], 
lidentified(problem), 
flight(disengage,afterburner), 
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flight(below_threehundredskts), 
not status(refuel_probe,refuel )]). 


precondition(land(as_soon_as_practicable), 
[problem(wing_fuel_leaking)], 
lidentified(problem), 
flight(disengage,afterbumer), 
flight(below_threehundredskts), 
status(refuel_probe,refuel)]). 


precondition(land(arrested), 
[problem(wing_fuel_leaking)], 
[flight(disengage,afterbumer), 
flight(below_threehundredskts), 
status(refuel_probe,refuel), 
landing(as_soon_as_practicable)]). 


precondition(terminate_problem, 
[problem(wing_fuel_leaking)], 
[flight(disengage,afterbumer), 
flight(below_threehundredskts), 
status(refuel_probe,refuel), 
landing(as_soon_as_practicable), 
landing(arrested)]). 


/* Generic precondition */ 

precondition(set(SW,X),_,[status(SW,OX),identified(problem)]):- 
binary_switch(S W), find_opposite(SW,X,OX). 

precondition(set(SW,X),_,[identified(problem), not status(S W,X)]):- 
tri_switch(SW). 

precondition(look_at(IND),_,[]):- indica(IND). 


/* Deletepostcondition for fuel system malfunction */ 


deletepostcondition(identify_problem,_, 
[indicator(fuel_quantity_sector, V), 
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indicator(fuel_quantity_counter,W), 
indicator(centerline_tank,X), 
indicator(extemal_tank, Y)]). 


deletepostcondition(terminate_problem, 
[problem(internal_wing_transfer_fail)], 
{problem(internal_wing_transfer_fail)]). 


deletepostcondition(tenminate_problem, 
{ problem(centerline_transfer_fail)], 
[probleni(centerline_transfer_fail)]). 


deletepostcondition(termimate_problem, 
[problem(external_wing_transfer_fail)], 
[problem(extemal_wing_transfer_fail)]). 


deletepostcondition(terminate_problem, 
[problem(reverse_transfer_faul)], 


[problem(reverse_transfer_fau)]). 


deletepostcondition(terminate_problem, 
[problem.(fuel_streaming_underside)], 
[problem(fuel_streaming_underside)]). 


deletepostcondition(terminate_problem, 
[problem(wing_fuel_leaking)], 
[problem(wing_fuel_leaking)]). 


/* Deletepostcondition of triple switch */ 

deletepostcondition(set(extemal_wing_transfer,outbd),_, 
[status(extemal_wing_transfer,wing), 
status(extemal_wing_transfer,center)]). 


deletepostcondition(set(extermal_wing_transfer,wing),_, 


[status(external_wing_transfer,center), 
status(external_wing_transfer,outbd)]). 
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deletepostcondition(set(extemmal_wing_transfer,center),_, 
[status(external_wing_transfer,outbd), 
status(extemal_wing_transfer,wing)]). 


deletepostcondition(set(refuel_probe,retracted),_, 
[status(refuel_probe,extended), 
status(refuel_probe,refuel)]). 
deletepostcondition(set(refuel_probe,extended),_, 
[status(refuel_probe,refuel), 
status(refuel_probe,retracted)]). 


deletepostcondition(set(refuel_probe,refuel),_, 
[status(refuel_probe,retracted), 
status(refuel_probe,extended)]). 


deletepostcondition(disengage(afterburner),_,[]). 
deletepostcondition(fly(below_threehundredskts),_,[]). 
deletepostcondition(land(as_soon_as_practicable),_,[}). 
deletepostcondition(land(arrested),_,[]). 


/* Generic deletepostcondition */ 
deletepostcondition(set(S W ,X),_,[status(SW,OX)]):- 
binary_switch(S W),find_opposite(S W,X,OX). 


deletepostcondition(look_at(IND),_,[]):- indica(IND). 
/* Addpostcondition for fuel system malfunction */ 


addpostcondition(identify_problem, 
[indicator(fuel_quantity_sector,decrease), 
indicator(fuel_quantity_counter,decrease), 
indicator(extemal_tank,empty), 
indicator(centerline_tank,empty )], 
[problem(internal_wing_transfer_fail), identified(problem)], 
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Failure of internal wing fuel to transfer caused by: 
1. The wing tanks failing to pressurize 
2. The wing transfer valves failing to open’). 


addpostcondition(identify_problem, 

[indicator(fuel_quantity_sector,normal), 
indicator(fuel_quantity_counter,decrease), 
indicator(extemal_tank,full), 
indicator(centerline_tank,not_empty)], 
[problem(centerline_transfer_fail), identified(problem)], 
Failure of the centerline fuel to transfer caused by: 

1. The defueling shutoff valve failing to open position 
2. The refueling valve failing to the closed position 

3. The tank failing to become pressurized’). 


addpostcondition(identify_problem, 
[indicator(fuel_quantity_sector,normal), 
indicator(fuel_quantity_counter,decrease), 
indicator(extemmal_tank,not_empty), 
indicator(centerline_tank,empty)], 
[problem(extemal_wing_transfer_fail), identified(problein)], 
Failure of the external wing fuel to transfer caused by: 
1. The external wing shutoff valve failing to the closed 
2. The tanks failing to become pressurized’). 


addpostcondition(identify_problem, 
[indicator(fuel_quantity_sector,increase), 
indicator(fuel_quantity_counter,increase), 
indicator(extemal_tank,not_empty), 
indicator(centerline_tank,empty), 
not indicator(centertank_jettison,jettisoned)], 
[problem(reverse_transfer_fail), identified(problem)], 
Reverse transfer of fuselage fuel caused by: 
A failed open defuel valve’). 
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addpostcondition(identify_problem, 

[indicator(fuel_quantity_sector,increase), 
indicator(fuel_quantity_counter,increase), 
indicator(external_tank,full), 
indicator(centerline_tank,not_empty), 

not indicator(centertank_jettison,jettisoned)], 
[problem(reverse_transfer_fail), identified(problem)], 
"Reverse transfer of fuselage fuel caused by: 

A failed open defuel valve’). 


addpostcondition(identify_problem, 
[indicator(centertank_jettison, jettisoned), 
indicator(fuel_quantity_sector,increase), 
indicator(fuel_quantity_counter,increase), 
indicator(extemmal_tank,not_empty), 
indicator(centerline_tank,empty)], 
[problem(fuel_streaming_ underside), identified(problem)], 
’Fuel streaming from underside of aircrft following CL jett 
1. Cockpit indications are identical to reverse transfer 
2. Fuel loss on the sector and counter: 500~700 Ibs/min’ ). 


addpostcondition(identify_problem, 
[indicator(fuel_quantity_sector,nonnal), 
indicator(fuel_quantity_counter,severe_decrea), 
indicator(extemal_tank,not_empty), 
indicator(centerline_tank,empty)], 
[problem(wing_fuel_leaking), identified(problem)], 
"Wing fuel leak problem caused by: Mechanical problem’). 


addpostcondition(identify_problem,_, 


[identified(problem),terminated(problem)), 
"There is no problem.’). 


addpostcondition(disengage(afterbumer),_, 
[flight(disengage,afterburner)]). 
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addpostcondition(fly(below_threehundredskts), 
[problem(wing_fuel_leaking)], [flight(below_threehundredskts)]). 
addpostcondition(land(as_soon_as_practicable),_, 
[landing(as_soon_as_practicable)]). 
addpostcondition(land(arrested),_, 
[landing(arrested)}). 


/* Generic addpostcondition */ 
addpostcondition(set(S W,X),_,{status(S W,X)]):- 
switch(S W),existposition(S W,X). 


addpostcondition(look_at(IND),_,[looked_at(IND)]):- 
indica(IND),existindication(IND,X). 
addpostcondition(terminate_problem,_,[terminated(problem)]). 


/* Problem for internal wing fuel fails to transfer */ 
internal:- tutor([indicator(fuel_quantity_sector,decrease), 
indicator(fuel_quantity_counter,decrease), 
indicator(external_tank,empty), 
indicator(centerline_tank,empty), 
indicator(centertank_jettison,not_jettisoned), 
status(extemal_transfer,off), 
status(intemmal_wing_transfer,stop_trans), 
Status(refuel_probe,extended), 
status(cb_intemmal_wing_transfer,pulled), 
Status(wing_transfer_pressure,normal)], 
[identified(problem),terminated(problem)]). 


/* Problem for centerline fuel fails to transfer */ 
center:- tutor({indicator(fuel_quantity_sector,normal), 
indicator(fuel_quantity_counter,decrease), 

indicator(extemal_tank,full), 
indicator(centerline_tank,not_empty), 
indicator(centertank_jettison,not_jettisoned), 
status(extemal_wing_transfer,wing), 
status(cb_external_wing_control,pulled), 
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status(cb_left_fuel_valve_power,pulled), 
Status(refuel_probe,extended), 
status(wing_transfer_pressure,normal)], 
[identified(problem),terminated(problem)]). 


/* Problem for external wing fuel fails to transfer */ 

extemial:- tutor((indicator(fuel_quantity_sector,normal), 
indicator(fuel_quantity_counter,decrease), 
indicator(external_tank,not_empty), 
indicator(centerline_tank,empty), 
indicator(centertank_jettison ,not_jettisoned), 
status(extemal_wing_transfer,center), 
status(cb_external_wing_control,pulled), 
status(refuel_probe,extended), 
Status(cb_fuel_valve_power,pulled), 
Status(wing_transfer_pressure,nonnal)], 

[identified(problem),terminated(problem)]). 


/* Problem for reverse transfer of fuselage fuel */ 

reverse: - tutor([{indicator(fuel_quantity_sector,increase), 
indicator(fuel_quantity_counter,increase), 
indicator(external_tank,not_einpty), 
indicator(centerline_tank,empty), 
indicator(centertank_jettison,not_jettisoned), 
status(ram_air_turbine,retracted), 
status(generators,on), 
status(cb_wing_transfer_control,pushed), 
status(cb_left_boost_pump_control,pushed), 
status(cb_boost_pump_emer_control,pushed), 
status(cb_right_boost_pump_control,pulled), 
status(wing_transfer_pressure nonnal)], 
[identified(problem),terminated(problem)]). 


/* Problem for fuel streaming from underside of aircraft following jettison */ 


stream:- tutor([indicator(centertank_jettison, jettisoned), 
indicator(fuel_quantity_sector,increase), 
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indicator(fuel_quantity_counter,imcrease), 
indicator(extemal_tank,not_empty), 
indicator(centerline_tank,empty), 
status(wing_transfer_pressure,ovrd_trans), 
status(cb_refuel_probe,pushed), 
status(refuel_probe,extended), 
status(cb_fuel_boost_pump,pushed)], 
[identified(problem),terminated(problem)]). 


/* Problem for wing fuel leak */ 

leaking:- tutor([indicator(fuel_quantity_sector,normal), 
indicator(fuel_quantity_counter,severe_decrea), 
indicator(extemal_tank,not_empty), 
indicator(centerline_tank,empty), 
indicator(centertank_jettison,not_jettisoned), 
Status(refuel_probe,retracted)], 
[identified(problem),terminated(problem)]). 


/* Test of normal case */ 

nonnal:- tutor({indicator(fuel_quantity_sector,increase), 
indicator(fuel_quantity_counter,decrease), 
indicator(extemal_tank,not_empty), 
indicator(centerline_tank,empty), 
indicator(centertank_jettison,not_jettisoned), 
status(intemal_wing_transfer,normal), 
status(external_transfer,off), 
status(extemal_wing_transfer,outbd), 
status(wing_transfer_pressure,nonmal), 
Status(wing dump,nomnal), 
status(refuel_selection,int_only), 
status(landing_gear,up), 
status(ram_air_turbine,retracted), 
status(boost_pump_left,normal), 
Status(boost_pump_right,normal), 
Status(extemal_store_jettison_center,nomm), 
status(extemal_store_jettision_wing,norm), 
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status(generators,on), 
status(refuel_probe,retracted), 
status(cb_external_wing_control,pushed), 
status(cb_intemal_wing_transfer,pushed), 
status(cb_fuel_valve_power,pushed), 
status(cb_left_fuel_valve_power,pushed), 
status(cb_wing_transfer_control pushed), 
status(cb_left_boost_pump_control,pushed), 
Status(cb_boost_pump_emer_control,pushed), 
status(cb_right_boost_pump_control,pulled), 
status(cb_fuel_boost_pump,pushed), 
status(cb_refuel_probe,pushed)], 
[identified(problem),terminated(problem)]). 


/* Problem for reverse transfer of fuselage fuel using total status */ 

general:- tutor([indicator(fuel_quantity_sector,increase), 
indicator(fuel_quantity_counter,increase), 
indicator(extemal_tank,not_empty), 
indicator(centerline_tank,empty), 
indicator(centertank_jettison,not_jettisoned), 
Status(internal_wing_transfer,normal), 
status(extemial_transfer,off), 
status(external_wing_transfer,outbd), 
Status(wing_transfer_pressure,normal), 
status(wing_dump,nomnal), 
status(refuel_selection,int_only), 
status(landing gear,up), 
status(ram_air_turbine,retracted), 
status(boost_pump_left,nonnal), 
status(boost_pump_right,normal), 
status(extemal_store_jettison_center,norm), 
Status(external_store_jettision_wing,norm), 
status(generators,on), 
status(refuel_probe,retracted), 
status(cb_external_wing_control,pushed), 
status(cb_intemal_wing_transfer,pushed), 
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status(cb_fuel_valve_power,pushed), 
status(cb_left_fuel_valve_power,pushed), 
status(cb_wing_transfer_control,pushed), 
status(cb_left_boost_pump_control,pushed), 
status(cb_boost_pump_emer_control,pushed), 
status(cb_right_boost_pump_control,pulled), 
status(cb_fuel_boost_pump,pushed), 
status(cb_refuel_probe,pushed)], 
{identified(problem),terminated(problem)]). 


/* Problem for random selecting indicator and switch states */ 
randoim:- randinit, randitem([{decrease normal,increase],11), 
randitem([decrease,increase,severe_decrea],I2), 
randite:n({empty,not_empty,full],I3), 

randitem([empty ,not_empty ],14), 
randiteim([jettisoned,not_jettisoned],I5), 
randitem([{normal,stop_trans],51), 
randitein({off,outbd],S2), 
randiten1({outbd,wing,center],S3), 
randitem([normal,ovrd_trans],S4), 
randitem({int_only,all_tanks],S5), 
randitem({extended,retracted],S6), 
randiteim({check,normal],S7), 
randitem({[check,normal],S8), 
randitem({on,off],S9), 
randitem((|retracted,extended,refuel],S10), 
randitem({pushed,pulled],S11), 
randitem([pushed,pulled],S12), 
randitem({pushed,pulled],S 13), 
randitem([pushed,pulled],S 14), 
randitem({pushed,pulled],S 15), 
randitem({pushed,pulled],S16), 
randitem({pushed,pulled],S17), 
randitem([pushed,pulled],S 18), 
randitem({pushed,pulled],S19), 
randitem([pushed,pulled],S20), 
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tutor([indicator(fuel_quantity_sector,I1), 
indicator(fuel_quantity_counter,I2), 
indicator(external_tank,I3), 
indicator(centerline_tank,I4), 
indicator(centertank_jettison,[5), 
status(internal_wing_transfer,S1), 
status(extemal_transfer,S2), 
status(extemal_wing_transfer,S3), 
status(wing_transfer_pressure,S4), 
status(refuel_selection,S5), 
status(ram_air_turbine,S6), 
status(boost_pump_left,S7), 
status(boost_pump_right,S8), 
status(generators,S9), 
status(refuel_probe,S 10), 
status(cb_external_wing_control,S11), 
status(cb_intemal_wing_transfer,S12), 
status(cb_fuel_valve_power,S 13), 
status(cb_left_fuel_valve_power,S 14), 
status(cb_wing_transfer_control,S15), 
status(cb_left_boost_pump_control,S16), 
status(cb_boost_pump_emer_control,S17), 
status(cb_right_boost_pump_control,S 18), 
status(cb_fuel_boost_pump,S19), 
status(cb_refuel_probe,S20)}, 
[identified(problem),terminated(problem))]). 
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APPENDIX C 
SOURCE CODE OF TUTORING SYSTEM 


/* Title : TUTOR */ 

/* Author : Neil, C. Rowe */ 

/* Modify : Kang, Moung-Hung */ 

/* Date : 21 Jan 1990 */ 

/* Description : Problem-independent code for ’means-ends tutoring’: */ 
/* tutoring for leaming of sequences modelable by means-ends analysis. */ 
/* Underline means modified prograin with original program. */ 


/* This is the top level of the means-ends tutor. */ 

tutor(STATE,GOAL) :- not check_obvious_errors, issue_wamings, do_intro, 
write(’ Your objectives: ’), nl, writelist(GOAL,state), write(’.’), nl, randinit, 
uniqueassert(top_goal(GOAL)), find_operators(XL), 
uniqueassert(op_list(XL)), write(’Wait a moment while I analyze the problem 
thoroughly.’), nl, once_means_ends(STATE,GOAL,OPLIST2,GOALSTATE2), 
uniqueassert(top_solution(OPLIST2)), abolish(mainline_states ,4), 
write(’Type h for help.’), nl, 
means_ends_tutor(STATE,GOAL,OPLIST,GOALSTATE,[],[}), nl, 
write(’Full list of your actions: ’), nl, writelist(OPLIST,op), nl, !. 

tutor(STATE,GOAL) :- write(’Too bad: a solution is now impossible.’), nl, !. 


means_ends_tutor(STATE,GOAL,[], STATE,STACK GOALSTACK) :- 
difference(GOAL,STATE,[]), !. 
means_ends_tutor(STATE,GOAL,OPLIST,STATE,STACK,GOALSTACK) :- 
member([STATE,GOAL],STACK), !, fail. 
means_ends_tutor(STATE,GOAL,OPLIST STATE,STACK,GOALSTACK) :- 
not once_means_ends(STATE,GOAL,OPLIST,GOALSTATE), !, fail. 
means_ends_tutor(STATE,GOAL,OPLIST,GOALSTATE,STACK,GOALSTACK) :- 
difference(GOAL,STATE,D), applicable_op(D,OP), 
get_precondition(OP,STATE,PRELIST), all_achievable(STATE,PRELIST), 
apply_op(OP,STATE,STATE2), 
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once_means_ends(STATE2,GOAL,OPLIST2,GOALSTATE2), !, 
means_ends_tutor(STATE,PRELIST,PREOPLIST,PRESTATE, 
[[STATE,GOAL]ISTACK], [GOALIGOALSTACK]), !, 
met(STATE,GOAL,OPLIST,GOALSTATE,STACK,PRELIST,PREOPLIST, 
PRESTATE,OP,D, GOALSTACK). 


met(STATE,GOAL,PREOPLIST,PRESTATE,STACK,PRELIST,PREOPLIST, 
PRESTATE,OP,D,GOALSTACK) :- difference(GOAL,PRESTATE, J), !. 
met(STATE,GOAL,PREOPLIST,PRESTATE,STACK,PRELIST,PREOPLIST, 
PRESTATE,OP,D,GOALSTACK) :- 
higher_goal_achteved(GOALSTACK,PRESTATE), !. 
met(STATE,GOAL,OPLIST,GOALSTATE,STACK,PRELIST,PREOPLIST, 
PRESTATE,OP,D, GOALSTACK) :- difference(GOAL,PRESTATE,D2), 
not applicable_op(D2,OP), !, 
means_ends_tutor(PRESTATE,GOAL,OPLIST2,GOALSTATE,[], 
GOALSTACK), append(PREOPLIST,OPLIST2,OPLIST). 
met(STATE,GOAL,OPLIST GOALSTATE,STACK,PRELIST,PREOPLIST, 
PRESTATE,OP,D, GOALSTACK) :- writedebug8(OP), 
check_with_student(OP,PRESTATE,D,NEWOP), 
get_deletepostcondition’NEWOP,PRESTATE,DELETEPOSTLIST), 
print_optional_message_d(NEWOP,PRESTATE), 
deleteitems(DELETEPOSTLIST ,PRESTATE,PRESTATE2), 
get_addpostcondition(NEWOP,PRESTATE,ADDPOSTLIST), 
print_optional_message_a(NEWOP,PRESTATEB), 
union(ADDPOSTLIST,PRESTATE2,POSTLIST2), 
do_randsubst(NEWOP,POSTLIST2,POSTLIST), 
check_mainline_return(POSTLIST), !, 
means_ends_tutor(POSTLIST,GOAL,POSTOPLIST,GOALSTATE,[],[GOALI 
GOALSTACK]), append(PREOPLIST,[NEWOPIPOSTOPLIST],OPLIST). 


do_intro :- intro(T), write(T), nl, !. 
do_ intro. 


find operators(XL) :- nice_bagof(X,P/recommended(P,.X), XL). 
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/* Problem-definition errors */ 
/*that is, errors by the instructor building a particular means_ends tutor.*/ 


check_obvious_errors :- setof({M,A],obvious_error(M,A),MAL), !, 
writepairlist(MAL). 


obvious_error(’precondition fact missing for operator ’,O) :- 
recommended(D,O), not get_precondition(O,S,L). 
obvious_error(’deletepostcondition fact missing for operator ’,O) :- 
recommended(D,O), not get_deletepostcondition(O,S,L). 
obvious_error(’addpostcondition fact missing for operator ’,O) :- 
recommended(D,O), not get_addpostcondition(O,S,L). 
obvious_ersror(’recommended fact missing for operator ’,O) :- 
get_precondition(O,S,L), not recommended(D,O). 
obvious_error(’recommended fact missing for operator ’,O) :- 
get_deletepostcondition(O,S,L), not recommended(D,QO). 
obvious_error(’ recommended fact missing for operator ’,O) :- 
get_addpostcondition(O,S,L), not recommended(D,O). 


issue_warnings :- setof([M,A],possible_error(M,A),MAL), !, write(’Warnings:’), 
nl, writepairlist((MAL), ni. 
issue_wamings. 


possible_error(’This fact is not creatable: ’,F) :- get_precondition(O,S,PL), 
backtracking member(F,PL), uncreatable(F). 


writepairlist({}). 
writepairlist(([X,Y JILJ) :- write(X), write(Y), nl, writepairlist(L). 


/* Handling of randomness */ 
do_randsubst(O,S,NS) :- randsubst(O,RL), !, do_randsubst2(RL,S,NS). 
do_randsubst(O,S,S). 


do_randsubst2([],S,S). 


do_randsubst2([[F,NF,P]ILJ],S,NS) :- rand(1000,K), P1000 is P*1000, K=<P 1000, 
changestate(F,NF,S,S2), !, do_randsubst2(L,S2,NS). 
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do_randsubst2({{[F,NF,P,MJIL],S,NS) :- rand(1000,K), P1000 is P*1000, K=<P1000, 
changestate(F,NF,S,S2), !, write(M), nl, do_randsubst2(L,S2,NS). 

do_randsubst2({CIL],S,NS) :- do_randsubst2(L,S,NS). 

changestate(none,NF,S,[NFIS]) :- !, not member(NF,S), write( Random change 
made: fact ’), writefact(NF,state,Any), write(’ added.’), nl, !. 

changestate(F,none,S,S2) :- !, member(F,S), delete(F,S,S2), write(’ Random change 
made: fact ’), writefact(NF,state,Any), write(’ removed.’), nl, !. 

changestate(F,NF,S,[NFIS3]) :- !, member(F,S), delete(F,S,S3), write(’ Random 
change made: fact ’), writefact(NF,state,Any1), write(’ added, and’), nl, 
write(’fact ’), writefact(F,state,Any2), write(’ removed.’), nl, !. 


permutation([],[]) :- !. 
permutation(L,[IIPL]) :- randitem(L,I), delete(I,L,L2), permutation(L2,PL). 


randitem(L,I) :- length(L,N), rand(N,KM1), K is KMI+1, item(K,L,D. 

rand(N,K) :- randseed(S), nextrand(S,NS), K is NS mod N, retract(randseed(S)), 
asserta(randseed(NS)). 

nextrand(S,NS) :- FIC is 100*cputime, IC is floor(FIC), S2 is ((S*S)+IC) mod 2311, 
$3 is (S2*S2) mod 2311, NS is (S3*S) mod 2311, not(S=NS). 

nextrand(S,NS) :- NS is (S+1) mod 2311. 

randinit :- T is cputime, get4digits(T,FC), S is FC mod 2311, 
uniqueassert(randseed(S)), !. 

randinit :- C is cputime*1000, FC is floor(C), S is FC mod 2311, 
uniqueassert(randseed(S)). 

get4digits(S,N) :- name(S,AS), remove_nonnums(AS,[C1,C2,C3,C4,CS5S,C6lCL]}), 
name(N,[C6,C5,C4,C3]). 


remove_nonnums({],[]).- 
remove_nonnums({AXIL],L2) :- AX<48, !, remove_nonnums(L,L2), !. 
remove_nonnums([AXIL],[AXIL2]) :- remove_nonnums(L,L72), !. 


/* Tutoring rules */ 
/* This first rule obtains an operator from the student. */ 
check_with_student(O,S,D,NO) :- 


Write MERTEN ER EA EME RAGS OLA R EL ERED EE ORE OE SE) nl, 


write(’The following facts are now true:’), nl, 
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deleteitemis([indicator(fuel_quantity_sector,X), 

indicator(fuel_quantity counter, Y),indicator(external_tank,Z), 
indicator(centerline_tank,V),indicator(centertank _jettison,W)],S,DS), 
wiitelist(DS, state), write(’.’), nl, write’ What operator do you choose? ’), nl, 
write(’ For example:’), nl, write(’_ type look at INDICATOR for 
looked_at(INDICATOR)’), nl, write(’_ type set SWITCH POSITION for 


status(S WITCH, POSITION)’), nl, niceread(AO2), space_parse(AO2,03), 
handle_student_op(O3,0,S,D,NO). 


handle_student_op(O,O,S,D,O) :- !, wnte(’OK.’), nl. 

handle_student_op(’’,O,S,D,NO) :- !, check_with_student(O,S,D,NO). 

handle_student_op(O2,0,S,D,NO) :- helpword(Q2), !, op_list(OL), 
penmnutation(OL,POL), write(’The possible operators are: ’), nl, 
writelist(POL,op), write(’.’), nl, write’ Your objectives are: ’), nl, top_goal(G), 
writelist(G,state), write(’.’), nl, check_with_student(O,S,D,NO). 

handle_student_op(O2,0,S,D,02) :- xnopref(O2,O), !, write’ OK.’), nl. 

handle_student_op(O2,0,S,D,O) :- op_list(OL), not singlemember(O2,OL), 
fixspell(O2,Q), !, write(’I assume you mean ’), writefact(O,op,Any), write(’.’), 
nl. 

handie_student_op(O2,0,S,D,NO) :- op_list(OL), not singlemember(O2,OL), 
backtracking_member(O3,OL), fixspell(O2,03), !, write(’I assume you mean ’), 
writefact(O3,op,Any), write(’.’), nl, handle_student_op(O3,0,S,D,NO). 


handle_student_op(O2,0,S,D,NO) :- op_list(OL), not singlemember(O2,OL), !, 
write(’Not a valid operator--please choose one of: ’), nl, permutation(OL,POL), 
writelist(POL,op), write(’.’), nl, check_with_student(O,S,D,NO). 


handle_student_op(O2,0,S,D,NO) :- get_precondition(O2,S,PO2), 
difference(PO2,S,D2), not D2=[], !, write(’That operator requires that ’), nl, 
writelist(D2,precond), write(’.’), nl, check_with_student(O,S ,D,NO). 

handle_student_op(O2,0,S,D,NO) :- apply_op(O2,S,S), write(’That will not affect 
anything.’), nl, check_with_student(O,S,D,NO). 

handle_student_op(O2,0,S,D,NO) :- apply_op(O2,S,S2), top_goal(G), not 
once_means_ends(S2,G,OL2,GS2), !, write(’You cannot ever succeed if you do 
that.’), nl, check_with_student(O,S,D,NO). 
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handle_student_op(O2,0,S,D,02) :- top_goal(G), apply_op(O,S,S3), 
apply_op(O2,S,S2), compare_solutions(S3,G,OL3,GS3,S2,G,OL2,GS2), 
subsequence([OlIOL3],OL2), !, apply_ops([OIOL3],S,SL,GS4), 
elimdups(SL,ESL), asserta(mainline_states(ESL,O2,S,0)), 
write(’That does not seem immediately helpful, but I will try it.’), nl. 

handle_student_op(O2,0,S,D,02) :- top_goal(G), once_means_ends(S,G,OL,FS), 
not member(O2,OL), !, write(’I will try it, but it is not recommended or needed 
for the problem.’), nl. 

handle_student_op(O2,0,S,D,02) :- top_goal(G), difference(G,S,D2), 
all_achievable(S,D2), applicable_op(D2,03), get_precondition(O3,PL), 
least_common_op(S,G,0,02,PL,GROOT), !, write(’1 will try it, but it is not 
recommended first when ’), nl, difference(GROOT,S,DS), 
delete_uncreatable(D5,D6), permutation(D6,D7), writelist(D7,precond), 
write(’.’), nl. 

handle_student_op(O2,0,S,D,02) :- write(’Not the operator I would choose, 
but let us try it.’), nl, !. 


/* Intermediate predicates used by the tutor */ 
xnopref(O1,O2) :- nopref(O1,02). 
xnopref(O1,O2) :- nopref(O2,O1). 


/* This is used when the student has picked an operator which does help */ 

/* solve the problem but is not the highest-priority operator (1.e., */ 

/* he has a bug in his intemal ’recommended’ definitions.). */ 
least_common_op(S,G,0,02,G2,G) :- once_means_ends(S,G2,OL,NS), 
least_common_op2(O,02,OL). 

least_common_op(S,G,0,02,G2,DROOT) :- difference(G2,S,D), 
all_achievable(S,D), applicable_op(D,O3), get_precondition(O3,S,G3), 
least_conunon_op(S,G2,0,02,G3,DROOT), !. 


least_common_op2(0,02,OL) :- not member(O,OL), !. 
least_common_op2(O,02,OL) :- not member(O2,OL), !. 


compare_solutions(S3,G,OL3,GS3,82,G,OL2,GS2) :- 
once_means_ends(S3,G,OL3,GS3), once_means_ends(S2,G,OL2,GS2), !. 
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/* Since the tutor repeatedly reexamines slightly different paths to the */ 

/* goal, a lot of redundancy can be avoided by having the tutor store every */ 

/* solution it has found (by ’means_ends’) to a problem. And fact */ 

/* order shouldn't matter in caching states. */ 

cache_states(S,G,[],GS) :- !. 

cache_states(S,G,OL,GS) :- cached(S,G,OL,GS), !. 

cache_states(S,G,OL,GS) :- cached(S2,G2,OL2,GS2), check_permutation(S,S2), 
check_permutation(G,G2), !. 

cache_states(S,G,[OIOL],GS) :- asserta(cached(S ,G,[OIOL],GS)), 
apply_op(O,S,NS), cache_states(NS,G,OL,GS), !. 


/* This takes a list of operators and tells you what the resulting */ 

/* state is after applying them to some starting state. */ 

apply_ops([]J,S,[SJ,S) :- !. 

apply_ops({OIOL],S,[SISL],NS) :- apply_op(O,S,S2), apply_ops(OL,S2,SL,NS). 

apply_op(O,S,NS) :- get_deletepostcondition(O,S,DP), deleteitems(DP,S,S2), 
get_addpostcondition(O,S,AP), union(AP,S2,NS), !. 


helpword(help). 
helpword(h). 
helpword(huh). 


/* This checks for when the student retums from a digression, so as */ 

/* to tutor him at that point. */ 

check_mainline_return(S) :- mainline_states(SL,O,OS,BO), 
check_miaunline_return2(S ,SL,O,OS,BO). 

check_mainline_return(S). 


check_mainline_retum2(S,[S2ISL],0,OS,BO) :- permutemember(S,[S2]), !, 
write(’ You are retuming to a previous state.’), nl. 
check_mainline_return2(S,SL,O,OS,BO) :- permutemember(S,SL), !, 
wnite(’Do you see now that your choice of the ’), writefact(O,op,Any 1), 
write(’ action in the state with the facts [’), writelist(OS,state), 
write(’] was not the best choice; the ’), writefact(BO,op,Any2), 
write(’ action would have been better.’), nl, 
retract(mainline_states(SL,O,OS,BO)). 
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higher_goal_achieved(GL,S) :- higher_goal_achieved2(GL,S). 
higher_goal_achieved2([],S) :- !, fail. 
higher_goal_achieved2((GIGL],S) :- difference(G,S,[]), !. 
higher_goal_achieved2((GIGL],S) :- higher_goal_achieved2(GL,S). 


confusable(O,O,S) :- !, fail. 


/* Two actions are confusable if they are opposites */ 

confusable(O1,02,S) :- get_deletepostcondition(O1,S,DL1), 
get_deletepostcondition(O2,S,DL2), add_deletepostcondition(O1,S,DL2), 
add_deletepostcondition(O2,S,DL1), !. 


/* Or if their first word is identical */ 

confusable(O1,02,S) :- O1=..[PIR1], O2=..[PIR2], !. 

/* Or if they’re words whose first two letters are identical */ 

confusable(O1 ,O2,S) :- atom(O1), atom(O2), name(Ol ,[C1,C2INO1)), 
name(O2,[C1,C2INO2]), !. 


/* This part is modified for natural language output */ 


writelist([],R) :- !. 

writelist([X],R) :- !, writefact(X,R,.TL). 

writelist([X,Y]R) :- !, writefact(X,R.TL1), write(’ and ’), writefact(Y R,.TL2). 
writelist(L,R) :- writelist2(L,R, 1,0). 


writelist2({X],.R TL) :- checkodd(1), !, wrte(’and ’), writefact(X,.R,NL). 
writelist2({X].RITL) :- not checkodd(1), TL<34, !, SL is TL+4, writeblank(SL), 
write(’and ’), writefact(X,R,NL), !. 





writelist2(L,.R.NI.NL). 
writelist2({XIL],R,I,TL) :- not checkodd(I), writeblank(TL), writefact(X ,R.NL), 
write(’,’), nl, NI = 1+1, writelist2(L,.R,NIQ). 
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/* utility predicate */ 
checkodd(1). 
checkodd(N) :- N>1, N1 is N-2, checkodd(N1). 


writeblank(N) :- N < 40, WN is 40-N, wnteblank1(WN). 
writeblank(N) :- N >= 40, write(’ ’). 

writeblank1(Q) :- !. 

writeblank1(N) :- write( ’), NN is N-1, writeblank1(NN). 


writefact(not F,state, TL) :- atom(F), !, name(F,LF), space_length(LF,LLF,SLF), 
name(SF,SLF), write( it is not.’), write(SF), TL is LLF+10, !. 

writefact(not F,state, TL) :- F=..[P.X], atom(X), !, name(P,PL), name(X XL), 
space length(PL,.LPL,.SPL), space _length(XL,.LAL SXL), name(SX,SXL), 


name(SP,SPL), write(SX), is_form(X IX), write(IX), wnte(’not ’), write(SP), !, 
TL1 is LPL+LXL, TL is TL1+8. 


writefact(not F,state, TL) :- F=..fstatus X,Y], !, name(X name(Y,YL 


space_length(XL,LXL,SXL), space _length(YL,LYL,S YL), name(SX,.SXL), 
name(SY,SYL), write(SX), is form(Y IY), write(TY), write( ’not_’), write(SY), 
TLI1 is LXL+LYL, TL is TL1+8, !. 

writefact(not F,state, TL) :- F=. [indicator X,Y], !, name(X XL), name(Y YL 
space _length(XL,.LXL.SXL), space length(YL,.LYL,SYL), name(SX,SXL), 
name(SY SYL), write(SX), is form(Y IY), write(IY), write( ’not ’), write(SY), 
TLI is LXL+LYL, TL is TL1+8, !. 

writefact(not F,state, TL) :- F=..[P.X,Y], !, name(X,XL), name(Y YL 


space length(XL,.LXL.SXL), space length(YL.LYLSYL), name(SX.SXL), 
name(SY SYL), write(SX), write(_’), is form(Y IY), write(lY), write(not_’), 
write(SY), TL1 is LXL+LYL, TL is TL1+7, !. 

writefact(F,state, TL) :- atom(F), !, name(F,LF), space length(LF,LLF,SLF), 
name(SF,SLF), wnte(it is ’), write(SF), TL is LLF+6, !. 

writefact(F,state, TL) :- F=..[P atom(X), !, name(P,PL), name(X,XL 


ace_length(PL,.LPL,SPL ace_len LXL,SXL), name(SP,SPL 
name(SX,SXL), write(SX), is form(X,[X), write(IX), write(SP), TL1 is 
LPL+LXL, TL is TLI+4, !. 
writefact(F,state, TL) :- F=..[status X,Y], !, name(X,XL), name(Y,YL), 
space length(XL,.LXL,.SXL), space _length(YL,.LYL.SYL), name(SX,SXL), 
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name YL), wuit is form(Y write(lY), write(SY 
TL1 is LXL+LYL, TL is TL1+4, !. 
writefact(F state, TL) :- F=..[indicator, X,Y], !, name(X,XL), name(Y,.YL), 
space _length(XL,.LXL,.SXL), space length(YL.LYLSYL), name(SX,SXL), 
name(SY,SYL), write(SX), is form(Y IY), write(TY), write(SY), 
TLI is LXL+LYL, TL is TL1+4, !. 
writefact(F,state, TL) :- F=..[P.X.Y1, !, name(X. XL), name(Y, YL), 
space _length(XL,LXL.SXL), space _length(YL.LYL,SYL), name(SX.SXL), 


name(SY, SYL), write(SX), write( ’), is form(Y IY), write(IY), write(SY), 
TL1 is LXL+LYL, TL is TL1+4, !. 











[* writefact for preconditions */ 


writefact(not F,precond, TL) :- atom(F), !, name(F,FL), space length(FL,LFL,.SFL), 
name(SF,.SFL), wnite('it is not’), wnte(SF), TL is LFL+11, !. 

writefact(not F,precond,TL) :- F=..[P atom(X), !, name(X, XL), name(P,PL 
space_length(XL,LXL.SXL), space _length(PL,LPL,SPL), name(SX.SXL), 
name(SP,SPL), wnte(SX), write( is not’), wnte(SP), TL1 1s LXL+LPL 
TL is TL1+8, !. 

wiitefact(not F.precond,TL) :- F=..[P.X,Y], !, name(X XL), name(Y, YL), 
space_length(XL,LXL,SXL), space _length(YL.LYLSYL), name(SX,SXL), 


name(SY SYL), write(SY), write(’ is not ’), write(SX), TLI is LXL+LYL, 
TL is TL1+8, !. 





writefact(F,precond,TL) :- atom(F), !, name(F.FL), space _length(FL,.LFL.SFL), 
name(SF,SFL), wnite(it is ’), write(SF), TL is LFL+7. 

writefact(F precond,TL) :- F=..[P.X], atom(X), !, name(X,XL), name(P,PL), 
space_length(XL,LXL.SXL), space _length(PL,LPL.SPL), name(SX,SXL), 
name(SP,SPL), write(SX), 1s form(X, IX), write(1X), write(SP), 
TLI1 is LXL+LPL, TL is TL1+4, !. 

writefact(F,precond,TL) :- F=..[status X,Y], name(X.XL), name(Y,YL), 
space_length(XL,LXL,SXL), space _length(YL,.LYL,SYL), name(SX,SXL), 


name(SY SYL), write(SX), is_fornn(Y IY), write(1Y), write(SY), 
TL1 is LXL+LYL, TL its TL1+4, !. 
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writefact(F precond, TL) :- F=..f[indicator X,Y], name(X n Y.YL 


space_length(XL,.LXLSXL), space _length(YL.LYLS YL), name(SX,SXL), 


name(SY SYL), write(SX), is form(Y IY), write(TY), write(SY), 
TLI is LKL+LYL, TL is TLI+, !. 


writefact(F precond,TL) :- F=..{[P.X,Y], name(X name(Y ,YL 


space_length(XL,LXL,SXL), space_length(YL.LYL,S YL), name(SX,SXL), 
name(SY,SYL), write(SX), write(_”), is _form(Y IY), write(TY), write(S Y), 
TLI is LXL+LYL, TL is TLI+43, !. 


writefact(F op,TL) :- atom(F), !, name(F,FL), length(FL,LFL), wnte(F 
TLis LFL+7, !. 


writefact(F,op,TL) :- F=..[P.A], name(P,PL), name(A,AL), length(PL,LPL), 
length(AL,LAL), write(P), write(’ ’), write(A), TL1 is LPL+LAL, TL is TL1+1, !. 

writefact(F,op, TL) :- F=..[set,A,B], name(A,AL), name(B, BL) length(AL.LAL), 
length(BL,LBL), write(A), write(’ to’), write(B), TL1 is LAL+LBL, 
TL is TLI+4, !. 

writefact(F,op, TL) :- F=..[P,A,B], name(A,AL), name(B, BL), length(AL,LAL), 
length(BL,LBL), write(A), write( to ’), write(B), TL1 is LAL+LBL, 
TL is TL1+4, !. 

writefact(F,op,TL) :- name(F,FL), length(FL.TL), write(F), !. 

writefact(F,R,TL) :- name(F,FL), length(FL,TL), write(F), !. 

















is_form(X,’ is ’) :- not atom(X), !. 
is_form(X,’ is ’) :- name(X,NX), last(NX,115), !. 
is_form(X,’ ts ’). 


/* The original means-ends program (used for ’what if’ reasoning) */ 

once_means_ends(STATE,GOAL,OPLIST,GOALSTATE) :- 
means_ends(STATE,GOAL,OPLIST,GOALSTATE), 
cache_states(STATE,GOAL,OPLIST,GOALSTATE), !. 


means_ends(STATE,GOAL,OPLIST,GOALSTATE) :- 
means_ends2(STATE,GOAL,OPLIST,GOALSTATE,[]), writedebug7. 


means_ends2(STATE,GOAL,OPLIST,GOALSTATE,STACK) :- 
cached(STATE2,GOAL2,OPLIST,GOALSTATE), 


117 


check_permutation(GOAL,GOAL2), check_permutation(STATE,STATE2), |, 
writedebug6(STACK), !. 
means_ends2(STATE,GOAL,OPLIST,GOALSTATE,STACK) :- 
member([STATE,GOAL],STACK), !, writedebug4(STATE,GOAL,STACK), fail. 
means_ends2(STATE,GOAL,[] STATE,STACK) :- difference(GOAL,STATE,[}), !. 
means_ends2(STATE,GOAL,OPLIST GOALSTATE,STACK) :- 
difference(GOAL,STATE,D), applicable_op(D,OPERATOR), 
get_precondition(OPERATOR,STATE,PRELIST), 
all_achievable(STATE,PRELIST), writedebug/](D,OPERATOR,STACK), 
ineans_ends2(STATE,PRELIST,PREOPLIST,PRESTATE, 
[[STATE,GOAL]ISTACK)), writedebug2(PRESTATE,D,OPERATOR,STACK), 
get_deletepostcondition(OPERATOR,PRESTATE,DELETEPOSTLIST), 
deleteitems(DELETEPOSTLIST ,PRESTATE,PRESTATE2), 
get_addpostcondition(OPERATOR,PRESTATE,ADDPOSTLIST), 
union(ADDPOSTLIST,PRESTATE2,POSTLIST), 
means_ends2(POSTLIST GOAL,POSTOPLIST,GOALSTATE, 
([STATE,GOAL]JISTACK}), writedebug3(GOALSTATE,OPERATOR,STACK), 
append(PREOPLIST [OPERATORIPOSTOPLIST],OPLIST). 
means_ends2(STATE,GOAL,OPLIST GOALSTATE,STACK) :- 
writedebug5(STATE,GOAL,STACK), !, fail. 


/* Debugging tools */ 

writedebug1(D,O,STACK) :- not debugflag, !. 

writedebug 1(D,O,STACK) :- length(STACK,NM1), N is NMI+1, 
write(’>>Operator ’), write(O), write(’ suggested at level ’), write(N), nl, 
write(’to achieve difference of :’), nl, writelist(D,state), nl, !. 

writedebug2(S,D,O,STACK) :- not debugflag, !. 

writedebug2(S,D,O,STACK) :- length(STACK,NM1), N is NMI+1, 
write(’>>Operator ’), write(O), write(’ applied at level ’), write(N), nl, 
write(’to reduce difference of :’), nl, writelist(D,state), nl, 
write(’in state in which :’), nl, writelist(S,state), nl, !. 


writedebug3(S,O,STACK) :- not debugflag, !. 


writedebug3(S,O,STACK) :- length(STACK,NM1), N is NM1+1, write(’>>Level ’), 
write(N), write(’ terminated at state in which :’), nl, writelist(S,state), nl, !. 
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writedebug4(S,G,STACK) :- not debugflag, !. 

writedebug4(S,G,STACK) :- write(’>>>>Reasoning avoided an infinite loop at 
level ’), length(STACK,NM1), N is NM1+1, write(N), write(’ where problem 
was identical to that at level ’), index({S,G],STACK,]1), write(1), nl, !. 


writedebug5(STATE,GOAL,STACK) :- not debugflag, !. 

writedebug5(STATE,GOAL,STACK) :- write(’>>>>Unsolvable problem at level ’), 
length(STACK,NM1), N is NMI+1, write(N), nl, write(’for state :’), nl, 
writelist(STATE,state), nl, write(’and goal :’), nl, writelist(GOAL,state), nl, !. 


writedebug6(STACK) :- not debugflag, !. 
writedebug6(STACK) :- write(’>>>>Previously computed solution used at level ’), 
length(STACK,NM1), N is NM1+1, write(N), nl, !. 


writedebug7 :- not debugflag, !. 
writedebug7 :- nl, !. 


writedebug8(OP) :- not debugflag, !. 
writedebug8(OP) :- write(’The tutor prefers operator :’), 
writefact(OP,op,Any), nl, !. 


/* Miscellaneous utility functions */ 

delete_uncreatable([],[]). 

delete_uncreatable([XIL],M) :- uncreatable(X), !, delete_uncreatable(L,M). 
delete_uncreatable([XIL],[XIM]) :- delete_uncreatable(L,M). 
all_achievable(S,G) :- difference(G,S,D), not unachievable_member(D). 


unachievable_member(D) :- backtracking _member(F,D), uncreatable(F). 


uncreatable(F) :- get_precondition(O,S,L), backtracking_member(F,L), 
not in_postcondition(F). 


in_postcondition(not F) :- any_deletepostcondition(O,DPL), member(F,DPL), !. 


in_postcondition(not F) :- randsubst(O,RSL), member({F,X,Y ,Z],RSL), !. 
in_postcondition(not F) :- randsubst(O,RSL), member([F,X,Y],RSL), !. 
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in_postcondition(F) :- not F=..[{not,P], any_addpostcondition(O,APL), 
member(F,APL), !. 

in_postcondition(F) :- not F=..[not,P], randsubst(O,RSL), 
member([{X,F,Y,ZJ,RSL), !. 

in_postcondition(F) :- not F=..[not,P], randsubst(O,RSL), 
member([X,F,Y],RSL), !. 


any_deletepostcondition(O,L) :- deletepostcondition(O,C,L). 
any_deletepostcondition(O,L) :- deletepostcondition(O,L). 
any_addpostcondition(O,L) :- addpostcondition(O,C,L). 
any_addpostcondition(O,L) :- addpostcondition(O,L). 


get_deletepostcondition(O,S,L) :- deletepostcondition(O,C,L,M), factsubset(C,S), !. 
get_deletepostcondition(O,S,L) :- deletepostcondition(O,C,L), factsubset(C,S), !. 
get_deletepostcondition(O,S,L) :- deletepostcondition(O,L). 
get_addpostcondition(O,S,L) :- addpostcondition(O,C,L,M), factsubset(C,S), !. 
get_addpostcondition(O,S,L) :- addpostcondition(O,C,L), factsubset(C,S), !. 
get_addpostcondition(O,S,L) :- addpostcondition(O,L). 

get_precondition(O,S,L) :- precondition(O,C,L,M), factsubset(C,S), !. 
get_precondition(O,S,L) :- precondition(O,C,L), factsubset(C,S), !. 
get_precondition(O,S,L) :- precondition(O,L). 


print_optional_message_d(O,S) :- deletepostcondition(O,C,L,M), factsubset(C,S), 
write(M), nl, !. 

print_optional_message_d(O,S) :- !. 

print_optional_message_a(O,S) :- addpostcondition(O,C,L,M), factsubset(C,S), 
write(M), nl, !. 

print_optional_message_a(O,S) :- !. 


applicable_op(D,O) :- recommended(D2,Q), subset(D2,D). 


/* Spelling correction */ 

fixspell(W1,W2) :- atom(W1), atom(W2), !, name(W1,AW1), 
fixspell2(AW1,AW2), name(W2,AW2). 

fixspell(W1,W2) :- W1=..[PIIL], W2=..[P2IL], not(Pl=P2), !, fixspell(P1,P2). 

fixspell(W1,W2) :- W1=..[P,QUL], W2=..[P,Q2IL], not(Ql=Q2), !, fixspell(QI,Q2). 
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fixspell(W1,W2) :- Wi=..[P,Q,RIL], W2=..[P,Q,R2IL], not(R1=R2), !, 
fixspell(R1,R2). 


fixspell2(/ AW ,AW2) :- deleteone(X,AW,AW2). 
fixspell2(/AW,AW2) :- deleteone(X,AW2,AW). 
fixspell2(AW,AW2) :- transpose(AW,AW2). 


transpose([X, YIL],[Y,XI!L}). 
transpose({X/L],[ XIMJ) :- transpose(L,M). 


/* List utilities */ 
deleteone(X,[XIL],L). 
deleteone(X,[Y!L],[YIM]) :- deleteone(X,L,M). 


difference([],S,[]). 

difference({not PIG],S,G2) :- not singlemember(P,S), !, difference(G,S,G2). 
difference([PIG],S,G2) :- singlemember(P,S), !, difference(G,S,G2). 
difference([PIG],S,[PIG2]) :- difference(G,S,G2). 


subset([].L). 
subset([X/IL],L2) :- singlemember(X,L2), subset(L,L2). 


factsubset({],L). 

factsubset([not PIL],L2) :- not singlemember(P,L2), !, factsubset(L,L2). 
factsubset([not PIL],L2) :- !, fail. 

factsubset((P!L],L2) :- singlemember(P,L2), factsubset(L,L2). 


member(X,L) :- singlemember(X,L). 
singlemember(X,[XIL}) :- !. 
singlemember(X,[YIL]) :- singlemember(X,L). 


append([],L,L). 
append([{ XIL],L2,[{X!IL3]) :- append(L,L2,L3). 
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union({],L,L). 
union([XIL1],L2,L3) :- singlemember(X,L2), !, unton(L1,L2,L3). 
union([X!L1],L2,[X!L3]) :- union(L1,L2,L3). 


deleteitems([],L,L). 
deleteitems([X!L],L2,L3) :- delete(X,L2,L4), deleteitems(L,L4,L3). 


delete(X,[],[]). 
delete(X,[XIL],M) :- !, delete(X,L,M). 
delete(X,[Y!L],[Y'M]) :- delete(X,L,M). 


item(K,[],1) :- !, fail. 
item(K,[XIL],X) :- K=<1, !. 
item(K,[XIL], Y) :- KM] is K-1, item(KM1,L,Y). 


check_permutation(L,M) :- subset(L,M), subset(M,L), !. 
subsequence({],L) :- !. 

subsequence([XI!L],[XIM]) :- !, subsequence(L,M). 
subsequence(L,[XIM]) :- subsequence(L,M). 
permutemember(X,[XIL]) :- !. 

permutemember(X,[YIL]) :- subset(X,Y), subset(Y,X), !. 
permutemember(X,[YIL]) :- permutemember(X,L). 
last({X],X). last((XIL], Y) :- last(L,Y). 

elimdups([],[]). 

elimdups([XIL],M) :- singlemember(X,L), !, elimdups(L,M). 


elundups([X!L),[X!M]) :- elimdups(L,M). 


uniqueassert(Q) :- retract(Q), !, asserta(Q). 
uniqueassert(Q) :- asserta(Q). 


backtracking member(X,[XIL]). 
backtracking member(X,[YIL]) :- backtracking member(X,L). 
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/* V/O stuff */ 

space_parse([32IAS1],S1) :- space_parse(AS1,S1), !. 

space_parse(AS1,S1) :- not member(32,AS1), remove_ugly_chars(AS1,AS2), 
name(S1,AS2), !. 

space_parse(AS1I,S2) :- remove_ugly_chars(AS1,AS2), append(L1 ,(32IL2],AS2), 
name(N1,L1), parse_args(L2,N2), S2=..[NiIN2]. 


parse_args([],[]) :- !. 

parse_args((32IAL],L) :- parse_args(AL,L), !. 

parse_args(AL,[L]) :- not member(32,AL), name(L,AL), !. 

parse_args(AL,[N1IN2]) :- append(L1,[32IL2],AL), name(N1,L1), 
parse_args(L2,N2), !. 


remove_ugly_chars([],[]). 

remove_ugly_chars([XIL],M) :- X<65, not X=32, !, remove_ugly_chars(L,M). 
remove_ugly_chars([XIL],[-XIM]) :- remove_ugly_chars(L,M). 

niceread(L) :- checkretract(readbuff(L2)), asserta(readbuff([])), niceread2(L), !. 
niceread2(L) :- getO(C), niceread3(C,L). 

niceread3(10,L) :- !, readbuff(L2), reverse(L2,L). 

niceread3(C,L) :- readbuff(L3), retract(readbuff(L3)), asserta(readbuff([CIL3])), 


niceread2(L). 


checkretract(S) :- call(S), retract(S), !. 
checkretract(S). 


reverse(L,R) :- reverse2(L,[],R). 


reverse2([],L,L) :- !. 
reverse2([XIL],R,S) :- reverse2(L,[XIR],S). 


index(X,[XIL],1) :- !. 
index(X,[ Y!IL],N) :- index(X,L,Nm1), N is Nmi+1. 
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nice_bagof(X,P,L) :- bagof(X,P,L), !. 
nice_bagof(X,P,{]). 


/* Modified underscore -> space in length program */ 


space _length({],0,{). 
space _length({95IL1],.N1[32IL2]) :- space length(LI N2,L2), NI is N2+1. 


ace length({XILI}].N1 [XIL2]) :- spac n LI.N2,.L2), N1 is N2+1. 
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